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内 容 简介 


本 书 收集 ,整理 及 设计 了 适用 于 中 华 学 习 机 、 蔷 果 机 的 各 种 游戏 25 
个 。 这 些 游 戏 内 容 健 康 , 取 材 新 颖 广泛 。 

书 中 对 每 个 游戏 的 调 入 方法 ,操作 步骤 ,各 个 功能 键 , 玩 游戏 的 技巧 
及 故事 情节 , 均 作 了 详细 的 介绍 ,叙述 清楚 ,语言 幽默 有 趣 。 寅 知识 性 于 
游戏 中 ,不 仅 给 你 带 来 欢乐 , 而 且 能 提高 你 的 想象 力 ` 智 力 和 反应 能 力 ， 
丰富 业余 生活 。 计算机 游戏 是 一 种 老少 皆 宜 的 娱乐 活动 。 为 了 让 读者 对 
游戏 有 更 加 生动 形象 的 感受 ,并 附 有 精彩 的 画图 。 

除 游戏 外 ,本 书 编著 者 将 一 些 自行 开发 的 实用 软件 奉献 给 读者 。 这 
些 软件 部 分 是 用 汉字 PBASE !LE 数据 库 设计 ,其 余 是 用 BASIC 语言 研制 。 
各 有 特色 ,适应 不 同 层次 的 读者 。 有 军营 住房 管理 系统 ;计算 机 排 课 系 
统 ; 人 事 档 案 管理 系统 ;寿星 "咨询 软件 等 。 以 上 软件 有 功能 简介 ,使 用 
说 明 ,流程 图 及 程序 清单 。 这 些 程 序 已 正常 使 用 多 年 , 深 受 各 界 好 评 。 可 
供 读 者 直接 使 用 或 借鉴 。 也 适用 于 计算 机 软件 研究 人 员 ,计算 机 专业 的 
师 生 及 有 关 人 员 学 习 参 考 。 


前 言 


目前 我 国有 数 十 万 台中 华 学 习 机 苹果 机 分 布 在 学 校 . 厂 
矿 、 部 队 及 家 庭 等 。 充 当 了 人 们 学 习 、 工 作 和 生活 的 得 力 助手 ， 
尤其 是 在 开发 青少年 的 智力 方面 ,显示 了 强大 的 生命 力 。 受 到 
了 各 界 人 士 的 青睐 。 

为 了 满足 广大 读者 的 求知 欲望 ,我们 撰写 了 这 本 《中 华 学 
习 机 、 苹 果 机 实用 软件 技术 》。 全 书 共 分 两 部 分 (如 何 玩 页 游戏 
和 实用 软件 技术 ) .我 们 对 每 个 游戏 的 调 入 方法 ,操作 步骤 ,各 
个 功能 键 ,游戏 的 技巧 和 故事 情节 , 均 作 了 详细 的 介绍 ,为 了 
让 玩 游戏 者 有 更 加 生动 形象 的 感受 ,并 附 有 精彩 的 画图 如 果 
你 想 了 解 更 多 与 玩 游戏 有 关 的 知识 ,请 你 参考 由 韩 仲 清 主编 ， 
电子 工业 出 版 社 出 版 的 4 中华 学 习 机 苹果 机 游戏 指南 ) 一 书 ， 
通过 阅读 和 玩 游戏 ,不 仅 能 给 你 带 来 乐趣 ,而 且 还 能 给 你 带 来 
知识 , 带 来 智慧 和 力量 。 

编者 将 自行 开发 的 实用 软件 完全 提供 给 读者 , 毫 不 保留 
地 将 诸 软件 的 功能 简介 ,使 用 说 明 ,流程 图 和 程序 清单 献 给 各 
位 先生 及 女士 ,这 些 软件 在 部 队 学校. 机 关 、 医 院 及 商店 已 经 
使 用 多 年 ,经 济 效益 显著 ,社会 效益 良好 , 深 受 用 户 称赞 。 

本 书 图 文 并 茂 , 叙 述 清楚 ,语言 幽默 有 趣 ,从 实用 的 角度 
出 发 ,内 容 丰 富 . 有 具体 和 实用 。 读 者 能 直接 使 用 或 借鉴 参考 学 
习 ( 我 们 备 有 软件 磁盘 ,可 为 用 户 优惠 提供 ) 。 以 上 软件 易 读 、 
易 懂 、 易 用 ,用 户 界面 友好 。 可 将 其 移植 到 IBM-PC 系列 微机 
及 其 兼容 机 上 使 用 。 

二 1 AS 


本 书 在 编写 过 程 中 , 曾 得 到 电子 科技 大 学 出 版 社 社 长 
向 万 成 等 同志 的 大 力 支持 。 在 此 ,我 们 表示 囊 心 感谢 ! 

本 书 难 免 有 不 妥 之 处 ,欢迎 读者 指正 ! 

参加 本 书 编写 的 有 : 廖 兴 祥 , 卿 文 模 , 罗 太 模 , 张 瑞 琪 ， 
车 陆 翔 , 肖 守 中 , 孙 素 仙 , 周 娜 。 全 书 由 卿 文 模 统 稿 ,由 廖 兴 祥 
审 校 。 


编 者 
1994 年 1 月 28 日 于 上 四川 省 机 械 研 究 设计 院 


第 一 章 


天 产 产 产 产 广 产 产 盖 六 产 产 产 产 产 王 一 二 二 六 王 
0 


GD on 中 四 必 外 己 天 


目 


游戏 新 编 .…… 和 9 oo 
陈 龙 蛋 ooeooeoeesooesooosoooooooooooooooooooooooooooooooooo。 
幼儿 欢乐 屋 oooosoooscosoooooooooooooooooooooooosooooe 
城市 建筑 师 oooeoooseooooooooooooooooooooooooooooooooooo。 
铺设 新 水 管 eeesooeooesooeoooooooooooooooooooooooooooooooo。 


录 


入 光学 英语 庆生 全 


龙争虎斗 oo 


狩猎 


变形 金刚 ee 


洞穴 探险 oo 


1. 22 
1. 23 
1. 24 
1. 25 
第 二 章 
2.1 
2. 2 
2. 3 
2.14 
三 章 
第 四 章 
第 五 章 
第 六 章 
第 七 章 
第 八 章 
第 九 章 


外 星人 入 侵 地 球 ooeooeooeocsoesreseoeooooooooooososooo 
… 68 
用 LOGO 语言 编写 射击 游戏 三 则 ，……………，……… 
oo .82 
82 
汉 英 信息 检索 系统 ee 
计算 机 排 课 系 统 …- oo 
库房 管理 系统 .pe 
人 事 档案 管理 系统 .pp 
医院 工资 管理 系统 .pe 
挂号 查询 管理 系统 .……… oo 
“寿星 ”咨询 软件 …………… oo 
打印 游戏 画面 图 软件 … 和 PP 


ee 
炮台 阻击 战 ， 


ee 


66 


73 


99 
112 
155 
208 


，248 


291 


。 317 


328 


…。 349 


第 一 章 ”游戏 新 编 


1.1 恐 龙 蛋 


史前 愁 龙 灭绝 的 原因 除了 因 食 物 缺少 而 造成 的 互相 争 
夺 、 相 互 残杀 外 ,还 有 一 个 可 能 ,就 是 当时 地 球 气候 的 变迁 , 造 
成 改 龙 蛋 无 法 孵化 ,尤其 是 天 外 陨石 对 地 球 的 撞击 ,成 千 上 万 
的 忍 龙 蛋 还 没有 孵化 出 小 悉 龙 就 天 折 了 。 

当 科 学 已 经 发 展 到 能 够 利用 “时 间 隧 道 ? 返 回 历 史 的 时 
候 , 我 们 可 以 派出 一 位 孤胆 勇士 , 重 返 改 龙 时 代 , 尽 可 能 多 的 
抢救 疏 龙 蛋 , 并 将 它们 及 时 地 送 回 现代 。 那 么 如 在 现代 地 球 上 
孵 出 了 小 灵 龙 , 疏 怕 它 将 成 为 全 球 人 民 的 “ 球 宝 ”, 绝 不 是 某 个 
国家 的 “国宝 ”。 

勇士 来 到 史前 ,将 会 遇 到 各 种 意料 不 到 的 危险 .在 当时 的 
地 球 上 ,飞天 晶 遇 .吸血 蜂 蛛 以 及 剧 毒 怪 蛇 触 目 惊 心 , 勇 士 不 
能 和 它们 碰 上 ,更 不 能 与 其 纠缠 ,否则 ,勇士 的 生命 线 就 会 迅 
速 缩短 。 时 而 从 天 而 降 的 陨石 ,有力 是 勇士 的 最 大 危险 ,必须 随 
时 机 智 避 让 .勇士 的 任务 ,就 是 将 散布 在 山上 和 地 面 上 的 疏 龙 

一 、 游 戏 调 入 

游戏 启动 后 , 稍 候 , 即 出 现 动画 画面 和 游戏 说 明 , 殴 空格 
键 , 进 入 控制 选择 :对 于 莘 果 机 和 中 华 学 习 机 ,只 能 融 A 键 。 
随后 即 可 上 自动 调 入 游戏 。 
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二 .游戏 操作 
(1) 功 能 键 
ESC 键 一 一 暂停 ( 敲 任 意 键 恢复 ) 。 
CTRL 十 S 组 合 键 声音 控制 。 
CTRL 二 R 组 合 键 一 一 退出 游戏 ,重新 开始 。 
CTRL 十 M 组 合 键 一 一 退出 游戏 ,重新 选择 。 
(2) 操 作 键 
这 是 使 用 游戏 棒 控 制 的 游戏 。 
操纵 杆 控制 游戏 上 .下 ,左右 移动 。 
0 区 键 一 一 跳跃 。 
1 号 键 一 一 收 重 /返回 。 
三 游戏 技巧 
收 蛋 : 移 到 和 蛋 梨 之 上 , 敲 1 号 键 , 每 次 只 能 收 三 只 重 。 收 和 蛋 
时 ,尽量 不 要 远离 时 空 隧道 出 口 。 
返回 : 收 蛋 后 , 移 到 时 空 隧道 出 口 处 ,再 敲 ! 号 键 , 即 可 返 
回 现代 。 再 次 返回 史前 时 ,时 空 隧 道 的 出 口 将 会 在 随机 位 置 。 
碰 上 各 种 毒 虫 , 只 能 躲 让 ,否则 ,生命 线 就 会 迅速 身 短 , 当 
生命 线 为 零 时 ,勇士 将 变 成 好 蛛 . 留 在 史前 ,就 无 法 返回 现代 
了 ( 见 图 1.1)。 


1.2 幼儿 欢乐 屋 


这 是 为 您 九 岁 以 下 的 孩子 生日 准备 的 一 份 礼物 。 在 此 游 
戏 中 , 既 可 以 在 生日 蛋糕 上 写 上 您 孩子 的 姓名 , 插 上 和 您 孩子 
年 龄 相同 数目 的 蜡烛 ,还 可 以 再 唱 上 一 首 “ 祝 您 生日 快乐 的 
歌曲 .也 可 以 教 浆 的 孩子 认识 英文 字母 ,学 习 一 下 黄 文 打字 


人 
D。 


《经 验证 明 , 学 习 英 语 应 从 孩童 时 代 抓 起 ), 最 后 还 可 以 玩 一 玩 
数 手指 头 的 游戏 。 一 张 五 时 游戏 盘 ,可 以 节省 您 许多 宝贵 的 时 
间 ,给 孩子 们 带 来 知识 与 欢乐 。 

一 \ 游 戏 调 入 

游戏 启动 后 , 稍 候 , 进 入 菜单 选择 ; 
. 生日 快乐 : 
. 英文 字母 歌 ; 
. 手指 游戏 ; 
.彩色 打字 ; 
. 退出 。 

请 训 对 应 数字 键 , 即 可 进入 您 所 选 的 游戏 。 

二 ,游戏 操作 

1. 生日 快乐 ;HAPPY BIRTHDAY 

游戏 开始 ,要 求 输入 姓名 (不 能 超过 6 个 字母 ) ,地 回 车 
键 , 输 入 年 龄 (不 能 超过 九 岁 ) , 殴 回 车 键 , 屏 幕 上 显示 一 个 有 
孩子 姓名 的 大 蛋糕, 上面 插 有 和 年 龄 相同 数目 的 蜡烛 ,同时 响 
起 “ 祝 您 生日 快乐 ”的 乐曲 。 

2. 英文 字母 歌 ;:ABC 

游戏 开始 , 按 英 文字 母 顺 序 , 屏 幕 上 恶 个 显示 字母 ,同时 
响起 “英文 字母 歌 ”。 

3. 手指 游戏 :THUMBKIN 

游戏 开始 ,屏幕 上 显示 一 个 人 的 左右 两 只 手 , 并 从 大 姆 指 
开始 ,响起 “两 只 老虎 …… ”的 乐曲 ,直至 显示 全 部 手指 为 止 。 

4. 彩色 打字 GRAPHIC TYPIST 

游戏 开始 ,可 以 首先 选择 彩色 (1 一 9), 然 后 敲 字母 键 , 屏 
幕 上 即 显 示 出 该 种 颜色 的 字母 ,颜色 下 以 随时 变动 ,于 是 五 彩 

二 省 


C2 心 CD hND 一 


纵 纷 的 字母 跃然 显示 在 屏幕 上 。 
除 彩 色 打字 游戏 用 ESC 键 返回 选择 外 ,其 余 各 项 均 朋 回 


1.3 城市 建筑 师 


如 果 您 玩 过 “肥胖 城市 "( 拆 楼 房 ) 这 个 游戏 ,您 可 能 还 记 
得 , 它 是 一 个 拆除 城市 中 过 时 的 ,破旧 的 危 岂 的 游戏 ,如 果 您 
胜利 地 完成 了 清理 废 二 的 任务 ,那么 ,现在 就 是 请 您 设计 规划 
一 记 新 的 城市 。 

城市 需要 分 片 规划 ,现在 请 您 在 这 片 土 地 上 , 尽 可 能 多 
地 、 合 理 地 将 住宅 楼 .商场 医院、 机场 以 及 娱乐 中 心 作 一 个 统 
筹 安排 ,每 项 建筑 物 可 以 由 您 任意 选 定 ,场地 由 您 决定 , 当 建 
筑 设 计 完毕 后 ,周围 相关 的 道路 会 自行 连通 。 

您 设计 好 的 建筑 图 ,可 以 存 入 磁盘 ,以 便 将 来 对 照 施工 ， 
您 存盘 时 ,不 要 忘记 了 输入 设计 者 的 姓名 。 当 新 的 城市 护 您 的 
意志 兴建 起 来 之 后 ,您 可 以 坐 着 小 车 到 各 处 巡视 ,找到 指定 的 
建筑 物 。 也 可 以 分 配给 您 一 座 建筑 ,可 能 是 住房 ,也 元 能 是 商 
场 , 但 建筑 物 大 门 的 钥 古 必 须 由 您 自己 去 找 , 屏 幕 下 方 的 提示 
会 及 时 告诉 你 现在 乘 车 行驶 的 正确 方向 。 

站 在 自己 设计 的 建筑 物 上 面 , 俯 栈 整 个 城市 的 宏伟 建筑 ， 
那 该 是 多 么 怪 意 啊 ! 

一 、 游 戏 调 入 

游戏 启动 后 ,显示 封面 , 稍 候 , 进 入 控制 选择 ， 

K/J 一 一 键盘 /游戏 棒 , 涡 键 后 ,进入 游戏 选择 ,屏幕 从 上 
到 下 依次 显示 ， 


建筑 城市 

驾车 接收 

驾车 找 钥匙 

读 入 建筑 图 

存储 建筑 图 

选择 的 方法 是 :用 II 或 M 键 控制 屏幕 左 侧 的 一 个 光标 上 
下 移动 , 当 确 定 光标 所 在 处 的 内 容 后 , 敲 空格 键 确定 , 即 进入 
所 选项 目 。 前 面 三 个 是 游戏 ,后 面 两 个 是 磁盘 操作 ,下面 着 重 
介绍 前 三 个 游戏 。 

二 、\ 游 戏 操作 

〈1) 建 筑城 市 

屏幕 上 显示 一 片 荒地 ,下 方 有 三 个 建筑 图 形 ,中 间 的 一 个 
在 不 停 的 闪烁 。 您 可 用 ”< 二 "或 "一 " 键 循环 显示 建筑 物 的 图 形 ， 
有 广场 .游乐 场 . 医 院 、 机 场 等 ,当然 您 还 能 见 到 各 类 雄伟 的 高 
楼 大 厦 , 多 达 30 个 , 当 您 选择 的 图 形 闪 烁 时 ,可 以 用 空格 键 确 
定 。 

然后 ,在 屏幕 左上 方 出 现 一 个 方 框 ,您 可 以 用 IJ.M、JK 
键 移动 方 框 , 当 方 框 处 于 空地 位 置 时 , 方 框 中 即 会 出 现 您 已 经 
选 定 的 建筑 物 ,继续 移动 方 框 到 您 确定 设置 建筑 物 的 位 置 ,项 
空格 键 , 该 处 即 会 出 现 您 所 需要 的 建筑 物 。 以 后 ,再 选 .再 移 、 
再 建 , 直 到 全 部 荒地 被 建筑 物 占 满 为 止 。 

如 想 将 您 的 杰作 保存 下 来 ,可 以 散 ESC 键 返回 游戏 选 
择 , 然 后 选 第 五 项 进入 存储 状态 ,在 敲 空格 键 后 ,请 输入 您 和 
您 的 建筑 图 的 名 字 , 然 后 再 敲 回 车 键 ,您 的 佳作 就 会 流芳 百世 
了 ( 见 图 1. 2)。 

〈2) 名 车 接收 
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注册 


按 图 施工 ,一 座 新 的 城市 拔 地 而 起 ,如 今 , 终 于 胜利 竣工 
了 .可 以 在 前 面 那个 游戏 完成 后 ,也 可 以 从 磁盘 中 调 入 原先 
存储 的 建筑 图 ) 进 入 此 游戏 ,在 屏幕 下 方 会 显示 出 图 中 的 某 座 
建筑 物 , 这 时 请 您 外 驶 豪华 汽车 ,亲临 现场 , 按 图 中 显示 , 逐 幢 
地 去 接收 。 您 开 着 车 ,在 公路 上 寻找 ,实际 的 建筑 毕竟 比 图 纸 
上 的 要 宏伟 得 多 。 您 找 对 了 该 座 建 筑 物 ,在 该 处 会 显示 一 个 五 
角 星 .然后 再 调 一 个 ,再 找 , 直 到 把 您 设计 的 建筑 全 部 找到 ,或 
者 到 您 的 汽车 能 量 耗 尽 为 止 。 

汽车 的 控制 ,用 IM、JK 等 键 ,注意 在 寻找 时 ,应 尽量 选 
择 较 近 的 路 线 ,以 免 因 走 弯路 而 浪费 汽车 的 “能 量 ”。 

《3) 驾 车 找 钥匙 

建筑 物 接收 完毕 ,还 应 该 到 新 房 里 去 看 看 。 新 的 建筑 物 的 
钥匙 在 哪儿 ? 您 要 自己 开 着 车 去 找 。 屏 幕 下 方 中 央 有 一 个 方 
向 指示 器 , 它 会 不 断 地 告诉 您 应 该 前 进 的 方向 ,方向 按 东 、 东 
南 , 南 \ 西 南 , 西 、 西 北 , 北 . 东 北 八 仿 方向 用 箭头 给 出 指示 ,您 
应 沪 按 提示 方向 , 选 最 短路 线 驶 向 目标 , 找 对 了 ， 新 房 的 铀 是 
就 显示 出 来 了 ( 见 图 1. 3) 。 

在 任何 时 候 , 侈 退出 游戏 ,返回 选择 ,或 者 想 进 入 磁盘 操 
作 ,请 敲 ESC 键 。 

为 使 您 的 建筑 图 能 够 随时 存 入 磁盘 .磁盘 上 请 不 要 贴 写 
保护 。 


1.4 铺设 新 水 秽 
凡是 玩 过 ”了 拓 乌 龟 " 这 个 游戏 的 朋友 ,您 可 能 不 会 忘记 由 


通 入 河中 的 水 管 里 不 断 地 朴 出 乌龟 和 昱 仍 的 事 来 。 如 果 将 这 
六 


种 水 管 接 到 城市 来 , 接 到 各 个 人 的 家 庭 中 去 ,此 时 鲜美 的 海味 
将 会 源源 不 断 地 自动 送 上 门 来 , 那 该 是 多 美好 啊 ! 

没 想到 ,这 件 造福 于 人 类 的 好 事 , 却 遭 到 一 群 可 恶 的 老鼠 

的 干扰 ,它们 上 寓 下 跳 , 碰 到 铺设 水 管 的 小 精灵 ,就 使 精灵 霄 
失 了 生命 力 。 老 鼠 的 捣乱 ,使 这 项 工程 迟 迟 不 能 竣工 。 
“小 精灵 发 现 了 几 只 沉睡 的 猫 ,突然 计 上 心 来 , 它 在 铺设 水 
管 的 同时 ,可 以 将 沿途 碰 到 的 唾 猫 携 走 ,在 老鼠 追 扑 的 紧急 时 
刻 , 再 把 睡 猫 放下 ,这 样 不 仅 可 以 阻挡 老鼠 的 进攻 ,而 且 , 因 为 
猫 是 老鼠 的 天 敌 ,尽管 它 是 一 个 睡 着 的 猫 ,老鼠 一 旦 磁 上 它 ， 
仍 会 变 成 猫 口中 的 佳肴 , 愿 您 辛勤 地 工作 ,给 人 们 的 生活 带 来 
幸福 和 欢乐 。 

一 .游戏 调 入 

游戏 启动 ,显示 出 封面 ,进入 人 数 的 选择 :1/2, 蔽 键 后 , 进 
入 控制 选择 :K/J 一 一 键盘 /游戏 棒 。 如 选 键盘 控制 , 胡 K 键 进 
入 控制 键 自 定义 状态 ,请 按 左 . 右 . 上 .下 和 拾取 的 顺序 定义 各 
键 , 如 游戏 人 员 为 2 时 , 需 各 自 定义 对 应 键 。 定 义 完毕 , 敲 Y 
键 进入 游戏 。 

二 、 游 戏 操作 

(1) 功 能 键 

ESC 键 一 一 暂停 ( 襄 任 意 键 恢复 ) 。 
CTRL 十 R 组 合 键 一 一 重新 开始 ,控制 选择 。 
CTRL 十 S 组 合 键 一 一 声音 控制 。 

〈2) 操 作 键 

<-/ 一 键 一 一 左 移 / 右 移 。 
A/Z 键 一 -上 行 /下 行 (可 以 环绕 屏幕 ) 。 
空格 键 一 一 拾取 /放下 。 

se。 10。 
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三 、 游 戏 技巧 

充分 利 分 屏幕 的 环绕 能 力 , 以 便 灵 活 地 躲避 老鼠 的 攻击 。 

认真 分 析 迷 富里 的 各 条 路 线 , 尽 量 少 走 回头 路 ( 见 图 
1.4) 。 


1.5 幼儿 学 英语 


这 是 一 个 为 幼儿 编写 的 游戏 软件 ,通过 玩 游戏 ,可 以 使 幼 
儿 认识 英文 字母 ,知道 字母 大 写 和 小 写 , 熟 悉 字 母 的 排列 顺 
序 , 了 解 一 些 简 单 的 单词 。 它 将 枯燥 无 味 字 母 和 有 趣 的 画面 有 
机 地 结合 在 一 起 ,将 会 使 幼儿 爱不释手 ( 见 图 1. 5)。 

一 ` 游 戏 调 入 

游戏 启动 后 ,会 出 现 一 幅 由 五 个 图 形 组 成 的 封面 ( 即 主 菜 
单 ), 图 形 中 有 一 个 可 以 移动 的 小 方 框 , 当 您 将 方 框 移动 到 您 
所 需 的 图 形 中 (每 个 图 形 表 示 一 个 游戏 ), 攻 键 确定 后 , 即 可 进 
入 与 该 图 形 所 对 应 的 游戏 , 若 在 屏幕 上 出 现 以 下 英文 提示 : 

PLEASE REMOVE THE WRITE PROTECT 

TAB FROM YOUR DISK 

PRESS ANY KEY TO CONTINUE 
它 的 意思 是 :请 您 将 磁盘 软件 上 的 写 保 护 打开 ,重新 放 入 驱动 
器 后 ,再 敲 任 意 键 。 

这 五 个 图 形 所 代表 的 游戏 内 容 , 按 屏 幕 显 示 的 位 置 如 下 
所 示 : 


本 
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找 回 字符 


连 线 游戏 青蛙 排序 


火箭 旅行 


下 面 按 上 下,\ 左 , 右 . 中 的 顺序 介绍 各 个 游戏 的 内 容 和 操 
作 。 

二 ,游戏 操作 

(1) 找 回 字符 ;屏幕 左上 方 出 现 一 个 由 若干 字母 组 成 的 单 
词 , 屏 幕 下 方 有 同样 的 若干 个 排列 杂乱 的 字母 游戏 要 求 将 下 
方 的 字母 移 至 左上 方 相同 字母 之 下 ,直到 将 全 部 字母 按 正确 
位 置 移动 完毕 ,此 时 屏幕 上 将 出 现 一 幅 与 该 单词 所 对 应 的 画 
面 。 然 后 再 开始 。 

(2) 连 线 游戏 :在 繁星 满 天 背 景 上 , 嵌 有 从 A 开始 但 是 杂 
乱 分 布 的 若干 字母 ,游戏 要 求 依 字母 排列 顺序 逐个 认定 ,每 认 
定 一 个 字母 ,其 字母 附近 会 出 现 一 段 折线 ,车 认定 的 字母 顺序 
不 对 , 则 正确 顺序 的 字母 会 自动 闪烁 ,似乎 在 向 您 打招呼 。 当 
正确 认定 完毕 , 则 由 全 部 折线 组 成 一 个 闭合 的 连 线 , 随 后 显示 
出 这 条 闭合 连 线 所 组 成 的 图 形 来 ,同时 还 会 告诉 您 这 个 图 形 
的 英文 名 称 ( 见 图 1.6)。 

(3) 火 箭 旅行 :屏幕 下 方 显示 若干 个 杂乱 排列 的 不 同 的 字 
母 ,游戏 要 求 按 字母 排列 顺序 ,从 前 面 的 字母 开始 ,逐个 将 字 
母 搬运 到 屏幕 上 的 任意 位 置 . 搬 运 完 毕 ,将 会 有 一 支 火 箭 从 第 
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一 个 字母 位 置 开 始 , 按 顺序 依次 飞行 一 周 ( 见 图 1.7)。 
(4) 蜜 蜂 采 蜜 : 屏 幕 上 显示 四 采花 ,每 条 花 上 均 写 有 一 个 
大 写字 母 和 一 个 小 写字 母 , 但 只 有 一 条 花 上 的 大 小 写字 母 为 
同一 英文 字母 。 正 中 花 台 上 停 有 一 只 蜜蜂 。 游戏 要 求 控制 蜜 
蜂 去 寻找 大 小 写字 母 相 同 的 那 条 花 , 若 找 对 了 ,经 认定 后 ,可 
以 得 分 ,如 此 反复 四 次 , 若 全 部 找 对 时 ,可 爱 的 小 蜜蜂 将 会 翩 
翩 起 舞 ,表示 向 您 祝贺 。 
(5) 青 蛙 排序 ;屏幕 上 从 左 到 右 蹲 着 三 只 小 青蛙 ,左右 两 
边 的 青蛙 身上 各 有 一 个 字母 ,屏幕 下 面 提供 有 若干 个 字母 ,其 
中 有 一 个 字母 可 以 和 上 面 二 个 字母 组 成 一 个 单词 。 游 戏 要 求 
根据 已 知青 蛙 身 上 的 字母 来 确定 单词 ,并 将 缺 字 母 搬运 补充 
完整 , 若 选 定 正 依 , 中 间 的 青蛙 会 高 兴 地 跳 起 来 , 若 选 错 了 ,该 
字母 会 被 青蛙 吃 掉 , 然 后 再 选 。 
今天 对 这 个 游戏 感 兴趣 的 小 朋友 ,二 十 年 后 ,也 许 会 成 为 
一 名 英文 专家 ,我 们 在 这 里 向 这 些小 朋友 表示 衷心 的 祝愿 。 
三 ,游戏 操作 
移动 方 框 或 蜜蜂 : 
上 I 
左右 一 K 
下 M 
选 定 /放下 一 一 均 贡 空 格 键 。 
重新 选择 游戏 一 一 敲 ESC 键 。 
每 个 游戏 结束 后 ,继续 一 一 蔽 空格 键 。 
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火箭 出 发 


图 1.7 
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1.6 动物 园 主 人 


由 于 动物 园 管 理 制 度 松弛 ,动物 园 主 人 玩忽 职守 , 副 酒 角 
睡 ,造成 一 大 批 凶 禽 猛兽 脱 笼 而 出 ,在 动物 园 中 肆 无 鼠 恒 地 模 
冲 直 撞 。 幸 亏 园 内 路 径 复杂 ,暂时 还 没 能 破 园 而 出 ,否则 的 话 ， 
后 果 就 不 堪 设 想 了 .。 现 在 的 当务之急 ,就 是 想 办 法 将 它们 重新 
捕获 ,再 将 其 关 进 笼子 。 
捕获 动物 的 任务 ,责无旁贷 的 落 到 了 动物 园 主人 的 身上 。 
人 ,在 一 般 情 况 下 是 跑 不 过 动物 的 ,所 以 失职 的 主人 驾 起 了 捕 
兽 车 ,配备 有 捕 兽 笼 和 麻醉 弹 ,开始 在 园 中 追逐 各 种 动物 ( 见 
图 1.8)。 当 他 遇 到 飞鸟 之 类 的 小 动物 时 ,可 以 追 上 去 直接 捕 
获 ,而 遇 到 如 狗熊 .大 象 、. 猩 猩 以 及 大 海龟 等 , 则 必须 使 用 武 
器 。 捕 兽 笼 可 以 使 动物 失去 活动 能 力 , 但 笼子 只 有 三 个 ,要 慎 
重 使 用 .麻醉 弹 可 以 使 动物 失去 知觉 ,但 是 发 射 麻醉 弹 是 需要 
能 量 的 , 当 能 量 没有 补足 时 , 面 对 扑 来 的 猛兽 ,躲避 一 下 则 是 
明智 的 。 
一 、 游 戏 调 入 
游戏 启动 一 说 明 选 择 :Y/VN 一 看 /不 看 ; 
一 演示 选择 :Y/VN 一 看 /不 看 ; 
一 声音 选择 :Y/N 一 有 /无 ; 
一 键 定义 选择 : 回 车 键 /ESC 键 一 自 定义 /开始 。 
若 殴 回 车 键 ,进入 自 定义 状态 ,请 按 以 下 顺序 定义 各 键 : 
移动 一 -上 左右 .下 ; 
射击 一 -上 \ 左 \ 右 、 下 ; 
放 笼 一 一 
。18 。 
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键 定义 完毕 ,定义 是 否 满 意 ? Y/VN 一 一 进入 游戏 /重新 定 


二 ,游戏 操作 
(1)ESC 键 一 一 游戏 中 暂停 /游戏 结束 ,重新 开始 。 
回 车 键 一 一 游戏 结束 ,重新 定义 各 键 。 
CTRLTS/CTRL 十 Q 一 一 声音 控制 。 
(2) 操 作 键 
I/K 键 一 上行/ 下行 。 
J/L 键 一 一 左 行 / 右 行 。 
E/D 键 一 一 发 射 方向 (上 /下 )。 
S/F 键 一 一 发 射 方向 ( 左 / 右 )。 
M 键 一 一 放 笼 。 
三 .游戏 技巧 
游戏 控制 键 较 多 ,最 好 二 人 玩 , 一 人 控制 移动 ,一 人 控 削 
射击 。 
尽量 避免 出 现 前 后 夹攻 的 被 动 局 面 。 


1.7 泡 泡 龙 


这 是 一 个 由 大 型 游戏 机 移植 过 来 的 妙趣 横生 的 对 抗 性 游 
戏 ( 见 图 1.9,1.10) 

一 只 从 天 而 降 的 摇 尾 巴 的 猫 头 龙 从 泡 泡 中 诞生 了 。 它 一 
出 世 , 就 具有 非凡 的 本 领 , 它 可 以 跑 , 可 以 跳 ,还 可 以 用 嘴 中 吐 
出 的 泡 泡 作 为 武器 来 消灭 各 种 魔 怪 ,故此 称 它 为 “ 泡 泡 龙 ”。 

在 不 同形 式 的 迷宫 中 , 游 动 着 诸如 大 头 怪 、. 大 嘴 人 怪 . 大 眼 
怪 等 各 种 魔 鱼 . 泡 泡 龙 的 任务 是 消灭 它们 , 当 它 吐出 的 泡 泡 射 
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到 人 怪 物 身上 ,怪物 将 被 泡 泡 团 团 包 住 , 从 而 丧失 反抗 的 能 力 ， 
这 时 泡 泡 龙 可 以 据 过 去 将 它们 吃 掉 。 有 时 被 泡 泡 包 住 的 人 怪物 ， 
会 变 成 香 攻 . 芋 果 一 类 的 果品 ,企图 蒙混 过 关 , 泡 泡 龙 干 万 不 
要 不 导 一 顾 。 

由 屏幕 下 方 或 上 方 不 断 出 现 一 些 字 母 , 泡 泡 龙 可 以 选择 
性 地 吃 掉 它 们 , 当 它 吃 掉 的 字母 在 屏 幕 左 侧 从 上 到 下 组 成 
"EXTEND" 后 ,游戏 将 自动 转 入 下 一 局 ,而 且 将 对 它 的 成 绩 表 
示 祝 贺 , 当 然 将 每 局 的 小 怪物 吃 完 也 可 换 局 。 

随 着 游戏 的 这 入 ,人 怪物 们 也 武装 起 来 了 ,这 时 泡 泡 龙 的 胜 
利 就 不 那么 容易 了 ,两 军 相 逢 勇者 胜 , 泡 泡 龙 必须 先 下 手 为 
强 . 对 于 处 在 四 周 封闭 迷宫 内 的 小 怪物 ,如 何 解决 它们 呢 ? 泡 
泡 龙 不 妨 找 一 个 黑白 二 色 的 汽 球 吃 下 去 试 试 ……。 

一 、 游 戏 调 入 

游戏 启动 一 一 屏幕 显示 出 “FLIP DISK OVER AND 
PRESS A KEY" 的 字样 的 指示 ,请 您 将 软盘 取出 ,反面 插入 驱 
动 器 ,然后 敲 任意 键 ,显示 动画 封面 , 稍 候 , 自动 调 入 游戏 并 开 
始 。 

二 、 游 戏 操作 

(1) 功 能 键 

ESC 键 一 一 暂停 /恢复 。 
CTRL 二 S 组 合 键 一 一 声音 控制 ( 强 、 弱 . 关 )。 

(2) 操 乍 键 

这 是 使 用 游戏 捧 控 制 的 游戏 。 
了 澡 纵 杆 控制 泡 泡 龙 上 .下 \ 左 、 右 移动 。 
敲 0 号 键 发 射 , 敲 1 号 键 跳跃 。 
三 ` 游 戏 技巧 
.21 . 
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当 游 戏 失 败 后 ,会 出 现 一 个 从 10 秒 开始 的 倒计时 的 指 
示 , 此 时 ,您 若 敲 了 游戏 棒 上 的 0 号 键 , 则 游戏 将 会 重新 恢复 ， 
即 保留 您 康 来 的 成 绩 , 并 且 从 失败 时 的 局 数 开始 继续 。 

若 和 欲 消灭 封闭 迷宫 内 的 怪物 ,必须 在 该 迷宫 上 方 等 待 吃 
掉 黑 白 两 色 的 汽 球 。 

若 吃 掉 雨伞 ,可 连 过 几 局 ,如 吃 掉 十 字 架 ,可 以 喷 火 , 穿 透 


1.8 黑色 魔法 


在 一 座 被 施 了 黑色 魔法 的 山庄 里 ,有 不 少 恶魔 在 里 面 为 
所 僻 为 ,也 囚禁 着 不 少 善良 的 人 们 。 山 庄内 外 有 穷 耻 恶 水 ,有 
断 润 深渊 ,还 有 数 不 尽 的 凶 爷 侄 兽 ,如 有 人 不 愤 误 入 山庄 , 则 
就 会 失去 自由 ,被 关 禁 闭 。 

为 了 破除 这 个 魔鬼 山庄 ,为 了 解救 被 囚禁 的 同胞 ,为 了 使 
山 鲁 水 水 摆脱 魔法 ,焕发 青春 ,为 人 民 造 福 , 一 名 勇士 疤 进 了 
这 个 危险 的 地 区 ( 见 图 1. 11)。 

在 山庄 外 面 , 到 处 游荡 着 变形 怪兽 、 恶 蝙蝠 `. 飞 火龙 和 大 
头 怪 等 ,这 些 魔 怪 都 是 山庄 里 的 爪牙 ,必须 毫 不 留情 地 消灭 它 
们 。 勇 士 的 主要 任务 是 消灭 魔 怪 ,开通 道路 ,寻找 一 种 只 有 一 
只 眼睛 的 怪兽 ,捕获 这 种 独眼 人 怪兽 是 热 毁 魔鬼 山庄 的 关键 。 独 
眼 人 怪兽 存 六 只 ,分 散 隐藏 在 山庄 的 不 同 地 区 , 当 把 它们 全 部 扩 
获 ,魔法 就 可 解除 ,山庄 的 暗 门 方 可 打开 , 那 时 魔鬼 山庄 的 履 
灭 则 指日可待 了 。 

然而 ,寻找 六 只 独眼 色 兽 ,谈何容易 。 勇 士 要 在 荒山 亚 水 
之 中 ,不 停 二 穿行 奔跑、 跳跃 、. 议 登 ,要 躲避 或 者 消灭 各 种 近 
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身 的 魔 怪 ,要 解救 被 囚禁 的 人 质 , 要 夺取 敌人 的 武器 来 武装 自 
己 ,困难 和 危险 多 如 牛 毛 。 
在 遇 到 危险 时 ,勇士 生命 线 (HEALTH) 就 会 缩短 ,这 时 组 
土 要 抓 住 时 机 休整 , 养 精 著 锐 。 等 待 体力 的 恢复 ,要 随时 吃 掉 
沿途 魔 怪 们 储存 的 食物 果品 来 补充 自己 ( 见 图 1. 12) 。 
一 、 游 戏 调 入 
游戏 启动 ,显示 封面 , 稍 候 ,自动 进入 游戏 。 
二 ,游戏 操作 
(1) 功 能 键 
空格 键 一 一 慢 动作 ( 敲 任 意 键 恢复 )。 
CTRL 二 R 组 合 键 一 一 中 途 退 出 游戏 ,重新 开始 。 
(2) 操 作 键 
IT/K 键 一 -上 行 / 下 行 。 
J/L 键 一 一 左 移 / 右 移 。 
A 键 一 一 沿 水 平方 向 射击 。 
S 键 一 一 向 前 上 方 射击 。 
三 ,游戏 技巧 
第 一 只 独眼 怪兽 ,在 第 一 幕 图 案 的 山顶 左 端 ,从 图 中 右 侧 
攀登 而 上 ,应 尽快 捕获 。 
最 后 一 只 独眼 怪兽 ,位 于 山庄 暗 门 左 侧 ,必须 经 幕 地 绕道 
方 可 达到 , 当 将 其 捕获 后 ,山庄 的 暗 门 就 自动 打开 了 。 
勇士 武器 中 的 弹药 , 需 经 常 由 沿途 设置 的 弹药 箱 及 时 补 
刘 
当 落 入 水 中 陷于 绝境 时 , 若 有 大 鸟 从 头 上 飞 过 ,可 借 机 和 逃 
生 , 但 只 能 在 生命 线 消 失 之 前 。 若 不 需要 飞鸟 帮助 , 则 必须 将 
其 击毙 ,以 免 被 它 破坏 勇士 正在 进行 的 搜索 工作 。 
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1.9 小 狗 历险 记 


凡 看 过 米 老 启 和 唐 老 鸭 故 事 的 人 ,一 定 会 知道 它们 的 一 
位 亲密 的 朋友 一 一 小 狗 果 菲 。 果 菲 热 心 好 奇 . 爱 管 闲事 .机 智 
幽默 ,为 此 它 曾 经 开办 过 ”“ 果 菲 侦探 事物 所 ,专门 为 他 人 排 忧 
解难 。 

这 年 夏天 的 一 个 夜晚 , 果 硬 正 躺 在 屋顶 上 乘凉 ,突然 从 电 
报 传真 机 里 传 来 了 它 的 一 位 老 朋 友 被 绑架 集团 揣 作 人 质 的 恶 
耗 , 老 友 被 关 在 阴森 的 古 堡 里 ,生命 危在旦夕 .及 时 救出 老 友 ， 
粉碎 绑架 集团 的 阴谋 ,是 刻不容缓 .义不容辞 的 责任 , 果 菲 立 
刻 出 发 了 。 

沿途 要 经 过 六 条 道路 崎 赋 的 山地 ,要 避 开 水 急 测 涌 的 河 
流 , 要 攀登 险峻 的 山崖 ,要 消灭 沿途 绑架 集团 设置 的 岗 哨 , 然 
后 才能 一 步 步 地 接近 古 堡 。 

果 菲 在 碰 到 岗 哨 之 前 ,必须 先 取 到 沿途 放 的 钥匙 , 方 可 消 
灭 它们 ,每 取 一 只 , 则 消灭 一 个 ( 见 图 1. 13) 。 

匪 巢 覆灭 之 日 ,也 就 是 老 友 重 逢 之 时 ( 见 图 1. 14) 。 果 硬 
这 次 历险 , 必 将 为 它 的 故事 增加 光彩 。 

一 、 游 戏 调 入 

游戏 启动 , 即 出 现 封面 及 选择 :操作 说 明 / 游 戏 图 示 说 明 
一 一 D/ 回 车 键 , 进 入 选择 后 , 台 回 车 键 继 续 ,进入 游戏 人 数 选 
择 :1/2, 选 择 后 敲 回 车 键 进入 游戏 。 

二 ,游戏 操作 

(1) 功 能 键 

ESC 键 一 一 暂停 /恢复 。 
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CTRLTS 组 合 键 一 一 声音 控制 。 

CTRL 十 Q 组 合 键 一 一 中 途 退 出 , 敲 Y 键 再 开始 。 

CTRL 二 N 组 合 键 一 一 选 局 控制 ,每 敲 一 次 进入 一 局 , 共 

有 六 局 。 

(2) 操 作 键 

当 接 有 游戏 棒 时 ,自动 为 游戏 棒 控 制 , 不 接 游戏 棒 , 方 可 
用 键盘 控制 。 

< 一 /一 键 一 一 左 行 / 右 行 , 殴 任 意 键 停止 。 

Z 键 一 一 跳跃 ,可 以 连续 跳 。 

回 车 键 取 数 。 

三 .游戏 技巧 

每 吃 一 只 钥匙 ,应 主动 及 时 和 岗 哨 相 碰 ,以 便 消灭 它们 。 

每 局 有 六 处 带 有 数字 的 地 方 ,每 个 地 方 的 数字 都 在 不 停 
地 由 0 到 9 变化 ,必须 在 这 六 个 地 方 各 取 一 数 ,六 个 数 相 加 要 
等 于 屏幕 上 方正 中 随机 出 现 的 一 个 数 ,否则 ,无 法 进 局 。 


1.10 龙争虎斗 


古代 作战 ,两 军 对 垒 , 各 自 调 兵 中 将 , 布 成 战 阵 , 然 后 由 一 
方 先锋 官 路 马 横 刀 ,向 对 方 挑战 ,应 战 者 出 场 , 于 是 一 场 刀 光 
剑 影 的 生死 搏斗 开始 。 战 场 逐鹿 ,鹿死谁手 ,不 仅 要 靠 将 士 的 
武功 ,武器 的 精良 ,还 与 主帅 的 派兵 布 阵 有 关 , 即 古人 目 : 一 着 
不 慎 , 全 盘 皆 输 。 

这 个 游戏 开始 出 现 一 个 棋盘 形 的 战场 ,各 自 的 兵 将 按 指 
定位 置 排列 。 战 斗 开 始 , 双 方 都 可 以 把 自己 的 兵 将 移动 ,以 造 
成 对 敌 方 的 威胁 。 也 可 选 一 位 合适 的 兵 将 与 对 方 争 斗 。 这 只 
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要 将 自己 的 人 马 移 至 与 对 方 的 某 兵 力 重合 的 位 置 上 即 可 ( 见 
图 1.15)。 

争斗 开始 ,屏幕 上 方 的 布 阵 换 成 征战 的 沙场 ,双方 的 兵 将 
各 持 武器 向 对 方 进 攻 。 双 方 的 兵力 不 仅 有 能 征 善战 的 勇士 ,也 
有 张 牙 舞 爪 的 凶 禽 猛兽 。 它 们 使 用 的 不 仅 有 刀 、 枪 . 棍 、 棒 古代 
兵器 ,也 有 枪弹 .炸弹 和 激光 枪 等 现代 化 的 新 武器 .沙场 磨 战 ， 
好 一 派 龙争虎斗 ! 

双方 的 争斗 ,以 对 方 的 生命 线 缩短 为 零 而 胜利 结束 ,然后 
返回 布 阵 状态 ,再 重新 调 兵 中 将 或 指名 叫 姓 , 直 至 使 对 方 的 兵 
将 死亡 列 尽 或 攻占 对 方 主 帅 的 营 帐 为 止 ( 见 图 1. 16)。 

一 、` 游 戏 调 入 

游戏 启动 ,显示 封面 I , 连 蔽 四 下 空格 键 , 出 现 封面 工 , 稍 
候 , 进 入 游戏 选择 ,选择 内 容 从 上 到 下 为 

一 个 人 玩 , 对 计算 机 老手 ; 

一 个 人 玩 , 对 计算 机 新 手 ; 

两 个 人 玩 ,老手 使 用 游戏 棒 ; 

两 个 人 玩 , 老 手 使 用 键盘 。 


声音 ， 声音 : 
规则 : 
老手 先 走 新 手 先 走 
键盘 控制 :射击 ”移动 左上 上 右上 
〈 自 定义 ) 左 停 右 


左下 下 右 下 
选择 的 办 法 是 :使 用 游戏 棒 控 制 屏幕 右 侧 出 现 的 一 只 手 ， 
使 手指 向 所 选 内 容 ,然后 敲 游戏 棒 上 的 0 号 键 , 即 可 选 定 。 一 
般 应 选 定 规则 ,再 选 游戏 。 如 进入 键盘 控制 ,可 按 屏幕 提示 顺 
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图 1.16 沙场 逐 放 


序 敲 入 自 定义 各 键 即 可 。 如 不 需要 定义 , 敲 回 车 键 即 进入 游 
戏 ,这 时 只 能 使 用 游戏 所 规定 的 各 个 操作 键 。 
若 在 选择 状态 下 ,等 候 时 间 较 长 , 则 会 自动 进入 演示 状 
态 , 这 时 若 敲 空格 键 , 可 以 再 重新 返回 选择 。 
二 、 游 戏 操作 
(1) 功 能 键 
ESC 键 一 一 慢 动作 。 
CTRL 十 S 组 合 键 一 一 声音 控制 。 
CTRL 十 R 组 合 键 一 一 重新 开始 。 
CTRLTYV 组 合 键 一 一 重新 开始 , 先 手 交换 。 


(2) 操 作 键 
布 阵 : 用 下 述 各 键 按 对 应 方向 移动 方 框 ， 
U I oO 
xy 
J< 一 K 一 > 二 
AT 
敲 F 键 选 定 和 落 子 。 
争斗 :上 述 各 移动 键 , 可 用 来 移动 争斗 者 ,F 键 为 使 用 武 
器 或 发 射 火 力 。 
三 ,游戏 技巧 


若 违反 游戏 规则 ,会 出 现 提示 , 则 重 走 。 
因 控 制 键 数 多 ,建议 使 用 游戏 棒 。 


。35 。 


1.11 皇宫 寻宝 图 


如 果 把 一 张 藏 宝 图 藏 在 皇 官 中 的 一 个 秘密 地 点 , 那 是 再 
安全 不 过 的 了 。 这 不 仅 因 为 皇 官 内 戒备 森严 ,高 墙 深 院 ,而 且 
官 中 的 巷道 交错 ,走廊 曲折 ,犹如 迷宫 一 般 , 真 叫 人 无 法 下 手 。 

这 个 游戏 独 出 心 裁 ,将 迷宫 式 的 皇宫 展示 成 立体 的 房屋 
巷道 ,每 走 一 步 , 均 需 殴 入 与 画面 内 容 对 应 的 汉字 代号 , 融 错 
了 , 则 系统 会 提示 ,如 :不 能 往 那 边 去 !” 

“您 不 能 这 样 做 !” 

“ 试 试 别 的 吧 !14 等。 整个 寻宝 过 程 , 是 观察 画面 ,判断 走 
向 或 按 画 面 要求 去 动作 。 即 使 您 真 的 找到 了 宝 图 藏匿 的 位 
置 , 也 还 需要 知道 密码 后 才能 到 手 。 

见 图 1. 17 ,游戏 开始 ,出 现 一 张 餐 桌 , 主 人 正在 吃 午饭 。 
突然 ,一 把 吃 首 从 外 面 飞 入 播 在 桌面 上 , 拔 起 已 首 , 上 面 卷 有 
一 张 残缺 的 纸 条 , 纸 条 上 写 有 几 行 不 完整 的 字迹 ( 见 图 1， 
18), 这 引起 了 主人 的 兴趣 ,于 是 开始 了 皇宫 寻宝 图 的 行动 。 
(以 上 游戏 开始 后 ,依次 殴 入 V`\G、V 和 T 键 后 所 看 到 的 画面 ， 
每 次 敲 键 , 需 待 画 面 变换 后 再 殴 下 一 键 。) 

一 .游戏 调 入 

游戏 启动 ,显示 封面 和 “如 意 集 ? 等 字样 , 敲 空 格 键 , 进 入 
游戏 。 

二 ,游戏 操作 

(1) 功 能 键 

CTRL 二 S 组 合 键 一 一 声音 控制 。 
CTRL 十 Q 组 合 键 一 一 重新 开始 。 
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飞 刀 寄 柬 


图 117 
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〈2) 操 作 键 


与 方向 有 关 的 操作 : 
E 一 一 向 东 ;W 一 一 向 西 ;S 向 南 ; 
N 向 北 ;U 向 上 ;D 一 一 向 下 ; 
与 动作 有 关 的 操作 ; 


V 一 一 看 ;F 一 一 找 ;:T 一 一 放 ;X 一 一 听 ， 

C 关 ;Y 叫 ;H 拉 ;A 打 ; 

乙 坐 ;B 吃 ;M 睡 ;I 穿 ; 

K 一 一 禹 ;0 一 一 开 ;P 一 一 推 ;L 点 ; 

Q 付 洒 跳 ;G 拿 。 

与 密码 有 关 的 操作 ; 

R 一 一 密码 。 
三 ,游戏 技巧 
当 出 现 有 通路 的 画面 时 ,一 般 是 选择 和 方向 有 关 的 键 敲 

入 ,方向 按 上 北 、 下 南 ' 左 西 . 右 东 的 规定 。 

尽量 不 走 回头 路 ,除非 提示 您 “不 能 往 那 边 走 !”。 


1.12 狩猎 


狩猎 和 打 狂 不 同 ,打猎 乃 是 牵 狗 架 座 ,四 处 寻找 猎物 ,而 
狩猎 则 是 在 固定 的 地 点 设伏 , 张 网 以 待 ,当然 , 欲 使 猎物 自动 
送 上 门 来 ,总 得 要 设 以 诱饵 。 你 看 ,在 森林 中 一 间 简 陋 的 厨房 
里 传 出 了 阵 阵 炸 肉 馅 饼 的 香味 ,被 香味 吸引 而 来 的 不 止 是 狗 、 
狼 、. 野 猪 和 元 雇 , 还 有 一 些 饮 嘴 的 小 野人 ( 见 图 1. 19) 。 

馅 饼 已 经 炸 好 ,香味 四 滋 , 饮 嘴 的 小 动物 们 接 贵 而 来 , 现 
在 就 要 看 您 的 枪法 了 。 和 狩猎 开始 ,首先 要 注意 隐蔽 ,丛林 中 的 
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岩石 就 是 最 好 的 屏障 ,当然 ,您 要 充分 利用 地 形 地 物 , 扬 长 避 
短 , 尽 可 能 做 到 消灭 敌人 而 保存 自己 , 祝 您 满载 而 归 。 
一 .游戏 调 入 
游戏 启动 后 ,进入 控制 选择 
游戏 棒 控 制 / 键 盘 控 制 一 一 J/ 回 车 键 ,控制 选择 后 进入 游 
戏 。 
二 ,游戏 操作 
(1) 功 能 键 
ESC 键 一 -暂停 / 慢 动 作 ( 任 意 键 恢 复 )。 
CTRL+S 组 合 键 一 一 声音 控制 。 


(2) 操 作 键 
K/L/; 键 一 一 左 移 / 停 止 / 右 移 。 
空格 键 一 一 射击 。 

三 ,游戏 技巧 


在 移动 中 射击 ,可 以 绕 过 障碍 , 击 中 树 上 的 宿 鸟 ;也 可 以 
采用 守株待兔 的 办 法 ,进行 阻拦 射击 。 


1.13 攻打 冬 宫 


十 月 革命 前 的 俄国 ,是 一 个 由 沙皇 统治 的 专制 帝国 .1917 
年 爆发 的 二 月 革命 ,推翻 了 沙皇 的 专制 政府 ,然而 革命 的 成 果 
被 资产 阶级 自 村 了 ,由 孟 什 维 克 组 成 的 临时 政府 ,继续 推行 侵 
略 政策 ,引起 了 全 国人 民 的 强烈 不 满 和 反抗 。 在 以 列宁 为 首 的 
布尔 什 维 友 党 的 领导 下 ,于 1917 年 11 月 7 日 爆发 了 十 月 半 
命 (11 月 7 日 为 俄 历 10 月 25 日 )。 当 天 晚上 ,起义 的 战士 包 
围 了 临时 政府 所 在 地 一 一 冬 宫 , 随 着 “ 阿 芮 乐 尔 ? 巡 洋 舰 的 炮 
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响 ,战士 们 向 冬 富 发 起 了 攻击 ,和 反动 部 队 进行 了 激烈 的 殊死 
博 斗 ,直至 胜利 占领 冬 宫 ( 见 图 1. 20) 。 

这 个 游戏 反映 的 是 隐蔽 在 某 地 下 机 库 中 的 革命 党 人 的 战 
斗 机 从 奉 苗 起 飞 , 冲 破 敌 人 炮火 封锁 ,摧毁 政 人 沿途 设置 的 种 
种 障碍 和 火力 阵地 ,最 后 将 火箭 手 空降 在 敌人 据点 之 前 ,彻底 

f 毁 政 方 巡 逻 装 甲 坦克 ,为 部 队 前 进 打开 一 条 通道 的 战斗 。 
一 、 游 戏 调 入 
软件 启动 一 稍 候 一 进入 选择 ; 


1 一 初级 ， 
2 一 一 高 级 ， 

3 一 一 最 高 级 ， 

D 一 一 演示 。 。 V- 一 看 说 明 。 


J 一 一 游戏 棒 控 制 。 K 一 一 键盘 控制 。 
选择 时 请 敲 对 应 的 字母 键 和 数字 键 , 应 注意 先 确定 控制 
方式 J/K ,再 确定 其 他 。 

若 不 选择 , 稍 候 , 自 动 进 入 游戏 ,这 时 的 控制 为 游戏 棒 。 
二 游戏 操作 
(1) 功 能 键 

P 键 一 一 暂停 (任意 键 恢 复 )。 

CTRL+S 组 合 键 一 一 声音 控制 : 开 / 关 。 

CTRL 十 R 组 合 键 一 一 中 途 退 出 ,重新 选择 。 
(2) 操 作 键 

J/ILL 键 一 一 飞机 左 转 / 直 飞 / 右 转 。 

JVK/L 键 一 一 飞机 左 转 / 直 飞 / 和 有 转 。 


30T0Hon1 = 号 算得 上 瑟 
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M/I 键 一 一 飞机 升 高 /降低 。 
F 键 一 一 射击 。 
第 三 局 ; 
J/MK/L 键 一 一 炮 手 左 移 / 停 止 / 右 移 。 
M/I 键 一 一 炮 口 升 高 /降低 。 
F 键 一 一 射击 。 
三 ,游戏 技巧 
(1) 第 一 局 开始 , 需 连 敲 世 键 四 次 ,再 连续 吉 I 键 , 方 可 顺 
利 起 飞 。 
(2) 第 一 局 结束 , 需 控 制 屏幕 上 方 一 个 白色 光 点 ,使 之 移 
至 下 方 地 形 图 中 一 白色 目标 , 方 可 进入 第 二 局 。 
(3) 飞 机 在 飞行 途中 ,要 注意 控制 高 度 , 以 免 挤 在 高 大 建 
筑 物 (如 围墙 ,高 塔 等 ) 之 上 ,尤其 要 小 心 由 后 面 妃 上 来 的 敌 机 
偷袭 。 
(4) 第 二 局 最 后 通过 敌 克 堡 封锁 区 ,要 不 断 地 修正 飞行 高 
度 ,直至 击毁 正中 大 再 堡 为 止 。 
(5) 第 三 局 以 消灭 冬 宫 两 侧 围 墙 上 的 八 名 卫士 而 告终 ,对 
随时 出 现 的 敌 坦 克 必 须 歼 灭 之 ,这 都 需要 及 时 调整 炮 口 的 高 


低 。 
1.14 单 轮 车 


一 只 干劲 十 足 的 小 山羊 正在 认真 的 学 骑 单 轮 车 。 当 然 r 嚼 
! 开 始 学 骑 车 ,摔跤 总 是 免不了 的 ,尤其 是 在 磁 到 障碍 物 时 ,但 
是 ,尽管 每 次 摔 得 它 头 昏 眼 花 , 小 山羊 也 不 过 是 嘴 里 哪 味 了 一 
名 什么 ,然后 又 和 聆 上 了 单 轮 车 。 
。414。 
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山羊 的 车 技 提高 了 ,这 天 , 当 它 正高 高 兴 兴 地 骑 着 单 轮 车 
在 海边 上 尽情 的 巡 戏 时 ,忽然 听 到 有 人 在 喊 “ 救 命 扩 
(HELP!), 于 是 热心 的 小 山羊 迅速 向 呼救 地 点 骑 去 ( 见 图 
1.21)。 

谁 在 呼救 ? 小 山羊 能 够 把 它 救 起 来 吗 ? 那 末 ,只 要 把 这 个 
游戏 玩 下 去 就 知道 了 。 

一 、 游 戏 调 入 

软件 启动 ,进入 游戏 人 数 选择 :1/2, 选 择 后 ,自动 进入 游 


二 、 游 戏 操作 
(1) 功 能 键 
ESC 键 一 一 暂停 / 慢 动 作 ( 任 意 键 恢复 )。 
CTRL 二 S 组 合 键 一 一 声音 控制 : 开 / 关 。 
CTRL 二 R 组 合 键 一 一 中 途 退 出 ,重新 开始 。 
(2) 操 作 键 
这 是 一 个 使 用 游戏 棒 控 制 的 游戏 。 


操纵 杆 向 下 一 一 前 进 。 
操纵 杆 向 上 一 一 跳跃 。 
三 游戏 技 巧 


跳跃 避让 障碍 物 时 ,要 注意 提前 量 。 
1.15 企鹅 


在 冰 上 走路 中 中 的 小 企鹅 ,在 海水 里 却 是 身手 矫健 的 , 它 
不 但 可 以 将 浮 在 水 面 上 的 冰 块 推 过 来 又 推 过 去 (当然 ,每 次 也 
只 能 推动 一 块 ) ,还 可 以 使 劲 将 挡 路 的 冰 块 砸 碎 。 
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这 天 ,快乐 的 小 企鹅 正在 水 中 嬉戏 ,不 料 却 遭 到 了 双 头 海 
龟 的 袭击 。 善 良 的 小 企鹅 奋起 反击 , 它 利用 推动 冰 块 的 办 法 去 
撞击 双 头 海龟 ,被 撞 到 的 海龟 帝 入 了 海底 , 自 取 灭 亡 。 

然而 ,小 企 匆 毕 竟 身 小 势 孤 , 你 来 蔡 它 试 试看 ,能 和 否 战胜 
双 头 海 色 ,使 小 企鹅 转危为安 呢 。 


一 、` 游 戏 调 入 

软件 启动 ,显示 封面 ,空格 键 一 一 控制 选择 : 
游戏 棒 / 键 盘 控 制 -一 OA 人 K 

选择 后 , 即 自动 进入 游戏 。 

二 、 游 戏 操作 

〈1) 功 能 键 


ESC 键 一 一 暂停 /恢复 。 
CTRL 十 R 组 合 键 一 一 中 途 退 出 ,重新 开始 。 
(2) 操 作 键 
</ 一 键 一 一 左 行 / 右 行 ( 移 )。 
A/Z 键 一 - 上 行 /下 行 。 
空格 键 一 一 推动 冰 块 ( 沿 移动 方向 ) 。 
回 车 键 一 一 硬 碎 冰 块 ( 沿 移动 方向 )。 
三 ,游戏 技巧 
(1) 推 动 冰 块 撞击 海龟 ,要 注意 提前 量 。 
(2) 砸 碎 冰 块 是 为 陷入 困境 的 企鹅 开辟 通路 以 便 逃 生 ,一 
般 应 尽量 少 用 ,从 而 可 以 留 下 尽 可 能 多 地 回旋 余地 ( 见 
图 1.22)。 
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1.16 变形 金刚 


如 果 你 有 一 个 玩具 变形 金刚 ,你 一 定 会 因 那 精巧 的 造型 
和 独特 的 变形 功能 而 爱不释手 ;如 果 你 看 过 “变形 金刚 ?这 部 
电视 剧 ,你 也 一 定 会 因 那 威力 无 比 的 金刚 和 神奇 的 变形 百 看 
不 厌 。 址 憾 的 是 ,玩具 变形 金刚 不 会 动作 ,电视 变形 金刚 不 会 
听 你 指挥 。 

那 末 ,这 个 游戏 变形 金刚 就 可 以 使 你 一 显 身手 ,变形 金刚 
是 你 ,你 就 是 变形 金刚 .你 准备 通过 何 种 途径 ,以 何 种 身份 ( 金 
刚 还 是 战机 ) ,去 往 何方 ,完全 由 你 自己 的 决定 ,当然 在 前 进 的 
路 上 不 会 是 一 帆 风 顺 的 ,和 否则 也 不 会 惊动 变形 金刚 的 大 蜀 了 。 

路 径 的 曲折 ,要 靠 你 的 智慧 ;敌人 的 拦阻 ,要 靠 你 的 机 智 
勇敢 ,胜利 总 是 属于 勇往直前 的 人 ( 见 图 1. 23) 。 

一 、 游 戏 调 入 

软件 启动 ,显示 封面 I , 敲 空格 键 , 显 示 封 面 工 , 稍 候 , 自 

二 、 游 戏 操作 

(1) 功 能 键 

CTRL 二 K 组 合 键 一 一 键盘 控制 。 

CTRL 二 JJ 组 合 键 一 一 游戏 棒 控 制 ( 默 认 )。 
CTRL+S 组 合 键 一 一 声音 控制 : 开 / 关 。 
CTRL 十 R 组 合 键 一 一 中 途 退 出 ,重新 启动 。 

(2) 操 作 键 

Y/U/I 键 一 一 金刚 (飞机 ) 左 上 跳 ( 飞 )/ 上 跳 ( 飞 )/ 右 
上 跳 ( 飞 )。 
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HAK 键 一 一 金刚 (飞机 ) 左 行 ( 飞 )/ 右 行 ( 飞 )。 
N/VM 键 一 一 变形 自动 向 左 / 向 右 。 
在 移动 和 飞行 中 , 殴 其 他 任意 键 原 地 停止。 
三 、 游 戏 技巧 
(1) 本 游戏 操作 键 多 ,建议 使 用 游戏 棒 控 制 。 
(2) 金 刚 或 战机 与 敌 遭 遇 , 将 会 很 快 损失 能 量 ,尤其 不 能 
在 火海 上 停留 。 
(3) 屏 幕 上 出 现 的 葫芦 状 物体 是 油料 , 击 中 它 , 可 以 补充 
你 的 能 量 。 


1.17 洞穴 探险 


这 是 一 个 到 森林 洞穴 探 险 ,寻找 宝 盒 的 游戏 。 游 戏 开 始 ， 
探险 家 站 在 森林 入 口 处 , 身 旁 一 只 手舞足蹈 的 猴子 ,似乎 在 嘲 
笑 探险 家 。 

探险 途中 , 既 有 高 山 恶 水 ,也 有 山 润 陷 井 ,更 有 各 种 毒 虫 
猛兽 的 侵袭 ,如 天 上 飞 的 蝙蝠 , 秃 应 ,地 上 有 疏 的 蝎子 .怪兽 、 以 
及 水 里 游 的 吃 人 鱼 和 水 蛇 等 ,这 对 于 赤 手 空 拳 的 探险 家 来 讲 ， 
无 疑 是 有 干 难 万 险 的 。 

探险 家 使 出 了 浑身 的 解数 ,他 靠 着 自己 矫健 的 身手 , 奔 
驰 、 跳 跃 、 短 登 .潜水 ,克服 一 个 又 一 个 难以 想象 的 困难 ,将 分 
藏 在 各 地 的 (包括 山涧 和 深水 中 的 ? 宝 盒 一 个 一 个 收集 起 来 ， 
圆满 地 完成 了 这 次 探险 取 宝 盒 的 任务 ( 见 图 1. 24) 。 

请 你 试 试看 ,能 搜集 到 几 只 宝 盒 ? 

一 、 游 戏 调 入 

软件 启动 ,显示 封面 , 敲 空格 键 , 进 入 游戏 (并 未 开始 ) , 稍 
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候 ,进入 演示 。 
二 ,游戏 操作 
(1) 功 能 键 
ESC 键 一 一 游戏 开始 /中 途 退 出 ,重新 开始 。 
CTRL 二 S 组 合 键 一 一 声音 控制 : 开 / 关 。 
(2) 操 作 键 
接 有 游戏 棒 , 即 为 游戏 棒 控 制 , 不 接 游戏 棒 , 即 为 键盘 控 
制 。 
J/MK 键 一 一 左 行 / 右 行 。 
LI/M 键 一 上行 ( 浮 )/ 下 行 ( 浮 )。 
空格 键 一 一 卡 跃 。 
三 .游戏 技巧 
为 躲避 袭击 ,可 作 适 当 停留 或 倒退 。 


1.18 护 宝 之 战 


， 历史 文物 ,不 论 是 埋 在 地 下 的 ,还 是 沉 到 水 底 的 ,都 是 国 
家 的 宝贵 财富 。 国 宝 ,当然 不 能 让 外 人 染指 ,尤其 不 允许 盗窃 、 
走私 。 所 以 围绕 着 历史 文物 这 一 课题 ,盗窃 与 反 盗窃 ,走私 与 
反 走 私 , 是 一 场 持 久 地 、 艰 若 的 斗争 。 

发 现 了 一 个 古 墓 群 ,还 未 等 发 掘 , 闻 讯 而 来 的 盗墓 贼 . 走 
私 犯 成 群 纯 队 偷偷 摸 摸 地 乘 黑 夜 潜入 墓地 ( 见 图 1 25)。 发 现 
了 一 稻 海 底 古 沉船 ,还 未 等 打捞 ,强盗 们 又 套 春 移动 ,它们 不 
仅 派出 舰艇 干扰 我 方 人 员 的 勘察 ,其 至 出 动 潜艇 企图 捷 足 先 
登 ( 见 图 1.26)。 

盗 宝 与 护 宝 的 战斗 终于 展开 。 护 宝 者 不 仅 要 对 付 各 类 盗 
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图 1.26 海底 护 宝 


徒 , 还 要 时 刻 警 茧 古 莫 群 或 深海 中 的 各 种 精灵 ,如 毒蛇 .蝙蝠 、 
恶魔 ,水 母 .海龟 等 的 效 击 。 你 唯一 的 武器 ,就 是 每 次 可 以 发 身 
三 发 子弹 的 强力 手枪 , 它 不 仅 可 以 击毙 各 类 盗 甘 和 毒 虫 猛兽 ， 
也 可 以 击毁 舰艇 。 除 此 之 外 ,就 只 有 靠 你 的 灵活 机 动 的 战略 战 
术 和 反映 敏捷 了 。 

一 、 游 戏 调 入 

软件 启动 ,显示 封面 ,进入 控制 选择 ; 

游戏 棒 / 游 戏 棒 / 键 盘 一 一 J/P/K 

若 选 游 戏 棒 (一般 只 能 选 了 键 ), 直 接 进 入 游戏 。 若 选 键盘 
控制 , 融 K 键 ,显示 提示 “是 否 需 要 自 定 义 各 键 ? Y/N”, 若 不 
需要 自 定 义 , 敲 N 键 , 即 进入 游戏 。 若 敲 站 键 , 进 入 键 自 定义 
状态 ,按照 以 下 顺序 依次 定义 ; 

右 左 上 下 右上 左上 右 下 左下 最 后 定义 
射击 键 。 

键 定 义 完毕 ,再 次 询问 “定义 是 否 满意 ? Y/N”, 若 回答 Y， 
则 进入 游戏 说 明 , 连 敲 空格 键 , 进 入 游戏 。 

游戏 结束 ,询问 “还 玩 吗 ? Y/N”, 回 答 即 可 。 


二 ,游戏 操作 
(1) 功 能 键 
ESC 键 一 一 暂停 / 慢 动 作 ( 任 意 键 恢复 ) 
(2) 操 作 键 
T 
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以 上 为 移动 方向 和 射击 方向 键 , 不 融 射 击 键 时 ,控制 移 
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动 。 若 敲 射击 键 , 则 沿 移动 方向 射击 。 

空格 键 一 一 射击 

三 .游戏 技巧 

〈1) 此 游戏 控制 键 较 多 ,建议 使 用 游戏 棒 控 制 。 在 使 用 游 
戏 棒 时 ,操纵 杆 仅 控制 方向 ,0 号 键 射击 ,1 号 键 移动 。 

(2) 每 局 小 怪物 由 一 个 逐渐 增加 到 七 个 ,要 前 后 经 过 七 次 
搏斗 , 方 能 进入 下 一 局 。 

(3) 第 一 局 中 天 上 落下 的 流星 威胁 最 大 , 因 其 下 落 方向 事 
先 无 法 确定 ,必须 特别 注意 。 

《4) 可 以 利用 障碍 物 躲避 怪物 的 袭击 ,但 有 时 ,也 会 阻碍 
对 怪物 的 射击 ,要 扬长 避 短 。 


1.19 捣毁 赌 城 


赌博 , 曾 使 多 少 人 倾 家 划 产 ;赌博 , 曾 使 多 少 家 妻 离子 散 ; 
赌博 , 曾 使 多 少 人 家 破 人 亡 。 在 我 们 的 社会 中 , 绝 不 允许 赌博 
一 一 这 种 旧 社 会 的 丑恶 现象 再 继续 存在 下 去 ! 这 是 一 个 深 受 
赌博 之 害 的 赌 徒 , 当 他 觉醒 之 时 ,第 一 个 念头 ,就 是 将 赌场 执 
毁 。 他 单枪匹马 间 入 赌 城 , 将 标 有 各 种 花色 的 赌 桌 一 一 推 毁 ， 
直至 剩 下 最 后 几 张 不 同 花 色 的 赌 桌 为 止 (这 剩 下 的 几 张 赌 桌 
可 以 作为 物证 送 到 审判 台 上 去 )。 在 执 毁 赌 城 的 过 程 中 ,将 遇 
到 赌 城中 大 大 小 小 的 爪牙 们 的 干扰 , 磁 上 它们 ,将 丧失 一 部 分 
战斗 力 , 对 付 它 们 的 办 法 ,就 是 推动 财 桌 去 撞击 它们 。 但 是 你 
要 千 万 注意 ,任务 还 是 以 捣毁 赌 城 为 重 。 

赌 城 捣毁 了 ,总 算出 了 一 口气 了 ,但 是 一 定 要 牢 牢记 住 ， 
赌博 是 万 万 不 能 再 搞 了 ( 见 图 1. 27) 。 

e。 57。 


一 ` 游 戏 调 入 
软件 启动 , 稍 候 , 进 入 内 容 选 择 : 


I- 一 游 戏 
0 一 资料 
S 一 一 退 出 


其 中 殴 S 键 , 可 以 退出 游戏 ,但 可 以 使 用 运行 命令 RUN 
再 敲 回 车 键 恢复 游戏 。 


下 面 着 重 介绍 游戏 的 调 入 和 控制 ; 

敲 I 键 一 游戏 封面 ~ 任意 键 一 功能 选择 
1 一 一 游戏 。 

2 一 一 练习 。 

3 一 一 显示 最 高 分 。 

4 一 一 存储 当前 分 。 


5 一 一 游戏 棒 控 制 (可 自 定义 )。 

6 一 一 键盘 控制 (可 自 定义 )。 

7 一 一 声音 控制 : 开 (ON)/ 关 (OFF) 。 

8 一 一 显示 器 选择 : 单 色 /彩色 (COLOR ) 。 

9 一 一 退出 。 

以 上 各 项 选择 , 闹 对 应 的 数字 键 即 可 ,一 般 在 选择 游戏 
〈 敲 1 键 ) 前 ,应 先 确定 控制 方式 ,当然 ,在 游戏 中 也 可 重 选 控 
制 。 

现 以 1.2,.6 三 项 各 作 一 简单 说 明 : 

敲 1 键 ,显示 得 分 标准 ,任意 键 , 进 入 游戏 。 游 戏 结束 后 ， 
敲 回 车 键 看 成 线 ,重新 开始 。 

敲 2 键 ,输入 局 数 (1 一 26) 一 殴 回 车 键 进入 练习 。 逆 ESC 
键 , 可 随时 退出 练习 ,返回 功能 选择 。 

e。D8 。 


执 天 
油 妆 正直 
当 


敲 6 键 , 进 入 键 自 定义 状态 , 若 不 需 自 定 义 , 可 殴 回 车 键 
返回 , 若 需 自 定义 , 按 以 下 顺序 定义 之 :上 , 左 . 右 .下 ,定义 结 
束 , 敲 回 车 键 返回 。 

二 \ 游 戏 操作 

(1) 功 能 键 

CTRL 十 M 组 合 键 一 一 暂停 (任意 键 恢复 )。 
CTRLTS 组 合 键 一 一 声音 控制 : 开 / 关 。 
CTRL 十 C 组 合 键 一 一 键盘 控制 ,进入 自 定义 。 
CTRL 十 A 组 合 键 一 一 游戏 棒 控 制 , 可 自 定义 。 
CTRLT+T 组合 键 一 一 显示 器 选择 。 

(2) 操 作 键 

一 /一 键 一 一 左 移 ( 推 )/ 右 移 ( 推 )。 
A/Z 键 一 -上 移 ( 推 )/ 下 移 ( 推 )。 

三 ,游戏 技巧 

(1) 当 相同 花色 的 赌 桌 在 同一 行 ( 列 ) 上 时 ,推动 一 个 可 撞 
毁 另 一 个 。 

(2) 推 动 赌 桌 的 方向 必须 与 移动 方向 相同 。 

(3) 可 以 适当 调动 赌 桌 的 位 置 ,造成 可 以 撞 毁 的 机 会 。 

(4) 在 推动 方向 上 ,只 有 单 桌 , 方 可 被 推动 。 

《5) 在 一 行 ( 列 ) 中 , 若 只 有 一 张 赌 桌 时 , 千 万 不 可 沿 该 行 
( 列 ) 的 方向 推动 ,否则 ,该 财 桌 会 经 屏幕 转 一 圈 而 由 背后 将 人 
撞 死 。 


1.20 十 堡 探秘 


某 地 发 现 了 一 座 古 堡 , 古 堡 中 有 何 隐秘 ,是 否 有 人 居住 ， 
。6n 。 


主人 是 谁 , 引 起 了 不 少 人 的 关注 ,一 位 勇士 担负 起 古 堡 探 秘 的 
任务 。 

如 果 古 堡 中 确 有 人 居住 ,为 了 避免 引起 他 们 的 猜疑 ,这 位 
勇士 赤 手 空 拳 ,手无寸铁 地 开始 了 这 次 冒险 的 活动 。 

他 要 攀登 陡峭 的 山崖 ,路 过 汕 急 的 小 溪 , 避 开 凶 猛 的 守山 
犬 ,这 就 要 看 他 的 武艺 如 何 了 。 他 可 以 爬 , 也 可 以 跳 ,只 有 用 顽 
强 的 毅力 和 坚定 的 信心 , 才 有 可 能 攀 上 堡 顶 ,也许 古 堡 的 主人 
正在 准备 迎 客 呢 ( 见 图 1. 28,1. 29) 。 

一 、 游 戏 调 入 

软件 启动 ,显示 封面 ,任意 键 , 人 数 选择 :1/2, 进 入 控制 选 
择 : 游 戏 棒 / 键 盘 一 一 J/K-> 稍 候 , 进 入 游戏 。 

二 、 游 戏 操作 

(1) 功 能 键 

ESC 一 一 暂停 /恢复 。 

(2) 操 作 键 

Y/I 键 一 一 左上 行 / 右 上 行 。 
B/M 键 一 一 左下 行 / 右 下 行 。 
空格 键 一 一 向 上 跳 。 
CTRL 二 Y 组合 键 一 一 左上 跳 。 
CTRL 十 I 组 合 键 一 一 右上 跳 。 
CTRL 十 B 组 合 键 一 一 左下 跳 。 
CTRL 十 M 组 合 键 一 一 右 下 跳 。 

三 游戏 技巧 

(1) 整 个 攀登 过 程 ,要 一 步 步 来 ,不 能 急 燥 。 

(2) 本 游戏 使 用 游戏 棒 控 制 较为 方便 。 
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1.21 鸟 之 战 


驼 乌 既然 是 乌 ,当然 也 要 下 蛋 。 这 不 , 它 刚刚 下 的 蛋 ,就 被 
秃 认 抢 走 了 。 愤 怒 的 驼 鸟 在 主人 的 带领 下 ,与 偷 蛋 的 秃 应 展开 
了 激烈 的 争夺 战 。 
每 当 驼 乌 与 秃 雇 在 地 面 上 迎头 相 擅 ,或 者 从 秃 应 头 上 掠 
过 ,无 座 都 会 毛 飞 腿 软 ,落荒 而 逃 , 当 然 偷 来 的 蛋 就 来 不 及 带 
走 了 ,于 是 驼 乌 蛋 失而复得 。 然 而 若 驼 鸟 在 飞 起 时 与 秃 雇 相 
撞 , 则 不 善 飞 的 驼 乌 就 要 干 拜 下 风 了 ( 见 图 1. 30) 。 
一 ,游戏 调 入 
软件 启动 ,显示 封面 ,空格 键 ,控制 选择 : 
游戏 棒 / 键 盘 控 制 :J/K 键 
声音 控制 : 开 / 关 一 一 S 键 
选择 后 , 敲 空格 键 ,进入 游戏 。 
二 、 游 戏 操作 
(1) 功 能 键 
ESC 键 一 一 暂停 /恢复 。 
CTRL 二 Q 组 合 键 一 一 中 途 退出 ,重新 启动 。 
(2) 操 作 键 
< 熏 / 一 键 一 一 左 行 / 右 行 。 
空格 键 一 一 跳跃 , 连 蔽 则 可 飞跃 或 加 速 。 
三 .游戏 技巧 
驼 乌 应 尽量 避免 与 秃 记 在 空中 相 撞 。 
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1.22 外 星人 入 侵 地 球 


是 否 有 外 星人 ,暂且 不 论 , 但 在 一 般 地 球 人 看 来 ,外 星人 
无 疑 是 十 分 强大 的 ,否则 也 不 可 能 跨越 十 几 至 几 十 光 年 而 光 
临 地 球 了 。 
这 个 游戏 一 开始 ,一 个 外 星人 怪 叫 着 向 着 地 面 冲 去 ,而 地 
球 上 早已 筑 起 了 铜墙铁壁 。 正 如 一 首 歌 中 唱 的 那样 ;朋友 来 
了 ,有 好 酒 , 若 是 那 对 狼 来 了 ,迎接 它 的 只 有 猎枪 ”外 星人 在 
冲击 时 , 当 碰 到 地 面 的 防护 措施 ,尽管 它 强大 的 能 量 引起 了 地 
面 剧烈 的 震动 ,但 是 外 星人 也 落 了 个 粉 身 碎 骨 的 下 场 ( 见 图 
1. 31)。 
如 果 你 是 个 外 星人 , 试 试 看 ,能 否 突破 地 面 的 防护 ,安全 
落地 ,在 地 面 上 和 地 球 人 较量 ,再 看 看 究竟 鹿死谁手 呢 ? 
一 、 游 戏 调 入 
软件 启动 一 动画 封面 ,游戏 开始 。 
二 、\ 游 戏 操作 
(1) 功 能 键 
ESC 键 一 -暂停 / 慢 动作 (任意 键 恢复 ) 。 
CTRL+S 组 合 键 一 一 声音 控制 : 开 / 关 。 
CTRL 十 R 组 合 键 一 一 中 途 退 出 ,重新 启动 。 
〈2) 操 作 键 
接 有 游戏 棒 时 ,为 游戏 棒 控 制 , 不 接 游戏 棒 , 则 为 键盘 控 
制 。 
一 /一 键 一 一 左 移 ( 行 )/ 右 移 ( 行 )。 
A/Z 键 一 -上 移 / 下 移 。 
e。 6066 。 
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〈 吉 相 反 键 停止) 

三 ,游戏 技巧 

可 以 反复 使 用 慢 动作 键 和 方向 移动 键 来 控制 外 星人 的 动 
作 , 方 有 可 能 突破 地 面 防护 。 


1.23 飞行 员 罗 吉尔 


罗 吉 尔 是 一 名 优秀 的 空军 飞行 员 。 这 次 他 奉命 单机 深入 
敌后 ,执行 一 次 特殊 任务 。 一 路 上 ,他 要 避 开 空中 的 障碍 物 ,还 
要 如 开 前 来 阻击 的 敌 机 飞碟 和 地 面 炮 火 的 拦 击 , 为 了 消灭 敌 
人 ,必须 有 效 地 保存 自己 , 罗 吉 尔 当 然 不 能 手软 ,他 带 有 充足 
的 弹药 ,他 要 靠 准确 连续 地 射击 , 杀 出 一 条 血路 ,突破 重围 , 方 
能 胜利 地 完成 作战 任务 ( 见 图 1. 32) 。 

单机 作战 ,需要 孤胆 英雄 , 你 来 试 试 吧 。 

一 .游戏 调 入 

软件 启动 ， 显 示 封 面 , 即 控制 选择 ， 

游戏 棒 / 键 盘 控 制 

选择 后 , 即 进 入 游戏 。 

二 游戏 操作 

(1) 功 能 键 

ESC 键 一 一 暂停 (任意 键 恢 复 )。 

〈2) 操 作 键 

< 二 /一 键 一 一 左 飞 ( 转 )/ 右 飞 ( 转 )。 
A/Z 键 一 - 升 空 /降低 。 
空格 键 一 一 开 人 炮 ( 连 发 ) ,任意 键 停止 。 
\ 游 戏 技巧 
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随时 注意 控制 飞行 高 度 ,避免 与 地 面 建筑 物 相 撞 。 
1.24 炮台 阻击 战 


在 敌 强 我 弱 的 时 候 , 主动 撤退 , 暂 避 敌 锋 是 明智 的 。 六 
炮 手 ,一 门 炮 ,固守 在 炮台 上 ,阻击 来 势 测 测 的 敌人 ,勇敢 地 担 
负 起 掩护 主力 部 队 撤 退 的 任务 。 

这 个 游 戏 不 同 于 一 般 的 战斗 游戏 , 它 有 点 像 电 视 里 的 慢 
动作 镜头 :敌人 是 一 步 一 步 地 向 炮台 台 近 , 炮 手 们 是 一 个 步 
又 、 一 个 步骤 地 完成 从 运 弹 、 装 填 、 瞄 准 到 射击 的 全 过 程 . 尽 管 
双方 都 是 慢 动作 ,但 看 到 敌人 那样 旁若无人 , 排 成 横 队 向 炮台 
步 步 逼 近 , 炮 手 们 仍 深 深 感 受到 一 种 压力 ,这 个 压力 就 是 击溃 
敌 军 ,消灭 敌人 ,保存 自己 ( 见 图 1. 33) 。 

当 我 方 的 炮火 击 屁 了 敌人 队伍 中 的 指挥 官 时 ,敌人 就 会 
不 战 而 溃 。 受 到 阻击 的 敌人 ,在 失败 之 后 , 脑 闭 成 怒 ,也 会 推出 
一 门 炮 来 和 我 方 炮台 较量 , 谁 胜 谁 负 呢 ? 那 就 要 看 各 自 炮 手 的 
本 事 了 。 

一 、 游 戏 调 入 

软件 启动 ,封面 说 明 I , 回 车 键 , 说 明 工 , 回 车 键 , 说 明正 ， 
进入 选择 ; 

重 看 说 明 / 进 入 游戏 一 一 B/P 

选择 后 , 散 回 车 键 进行 。 

现 对 进入 游戏 说 明 如 下 : 

敲 P 键 ,再 敲 回 车 键 , 进 入 不 利 条 件 选择 :1 一 63 一 一 选择 
后 , 敲 回 车 键 即 开始 。 

游戏 结束 , 若 重 玩 , 可 敲 回 车 键 。 

二 \ 游 戏 操作 

。70 。 
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(1) 功 能 键 :无 


〈2) 操 作 键 : 
下 面 按 操 炮 射击 过 程 分 别 说 明 : 
“ 操 炮 过 程 ” “ 提 示 ?” “操作 键 ” 
装填 LOAD BCJH、P 
火 强 FUSE A~G 
瞄准 ELEV A~G 
发 身 DEFL 空格 键 


其 中 * 操 雹 过 程 " 的 “提示 "显示 在 屏 窜 左 下 方 , 需 操作 的 
动作 ,该 “提示 ?后 面 有 一 个 ” 27 。 其 中 装填 “操作 键 ”, 对 应 不 同 


的 炮弹 类 型 : 


B 一 一 实心 弹 。 
一 一 谷 弹 。 
P 一 一 空心 弹 。 


其 显示 在 屏幕 右 下 方 ,每 次 用 其 一 ,炮弹 数量 有 限 。 

其 中 操作 键 A~G 中 ,^ 为 时 间 最 短 或 射程 最 近 ,G 为 时 
间 最 长 或 射程 最 远 , 要 根据 游戏 画面 上 的 敌 方 所 处 的 位 置 , 自 
行 决定 将 用 ABC.D.E.F,.G 中 任 一 键 。 


三 、 游 戏 技巧 


签 弹 应 在 敌人 允 近 时 使 用 。 
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1.25 用 LOGO 语言 编写 射击 游戏 三 则 


前 面 所 介绍 的 游戏 ,基本 上 都 是 用 机 器 语言 或 BASIC 语 
言 编写 的 。 用 LOGO 语言 编写 的 游戏 程序 ,尚未 见 到 , 实 属 小 
姑娘 坐 轿 第 一 回 。 

有 关 LOGO 语言 特点 ,编程 规则 和 使 用 方法 本 文 不 再 歼 
述 , 有 兴趣 的 读者 可 以 参阅 由 电子 工业 出 版 社 出 版 , 韩 仲 清 主 
编 的 BASIC 与 LOGO 语言 》 一 书 。 这 里 只 介绍 如 何 使 用 所 编 
的 LOGO 程序 以 及 如 何 进 行 游戏 。 

首先 按 正 确 方 法 启动 LOGO 语言 ,屏幕 上 将 出 现 LOGO 
提示 符 "?" 和 光标 ,然后 将 本 文 所 附 程序 逐条 输入 ,输入 时 一 
定 要 注意 命令 (语句 ) 和 参数 (数据 ) 之 间 至 少 要 用 一 个 空格 
( 敲 空格 键 ) 隔 开 。 最 后 , 敲 CTRL 十 C 键 结束 , 则 程序 分 几 个 模 
块 同时 存 入 内 存 。 

一 、 游 戏 程序 清单 

用 LOGO 语言 编写 射击 游戏 三 则 的 源 程序 清单 如 下 。 

1. 准备 程序 清单 

TO ZB :;E 

CS HT CLEARTEXT 

IF (OR (:;E< 1)( :E>> 3)) LSTOP] 

IF :E 一 1[PWMB110] 

IF :E 一 2LPWMB011] 

IF :E 王 3[PWMB111] 

MAKE ?"T 0 ST 

END 
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2. 直接 射击 程序 清单 
TO S1 ;Q :L 
MAKE "X ;H 
MAKE ”Y :Z 
RT :Q WAIT 200 FD :;L 
IF (OR ((:L * COS :Q)> 190)((:L * SIN :Q)>> 
255) (:Q<0)(:Q>90)) [SETPC 0 BK :L SETH 0 
SETPC 1 STOP] 
MAKE ”A XCOR 
MAKE ”了 B YCOR 
IF (AND (:A>> :X 十 25)(:A<<:X 十 45)〈:B>:Y 十 
30)(:B<:Y 十 50)) [PU SETH 0 SETPOS SE :X 十 35 ， 
Y 十 40 PPD HT BZSG 1 RT :;Q PU SETPOS SE ;A :B PD 
SETPC 0 BK :;L SETH 0 SETPC 1 ST STOP] 
HT RT 45 REPEAT 4 [FD 3 LT 90] LT 45 
SETPC 0 BK ;LSETH 0 
SETPC 1 ST 
END 
3. 间接 射击 程序 清单 
TO S2 :Q 
RT :Q WAIT 200 
IF (OR 〈:Q> 90)(:Q<0)) [LT :Q STOP] 
FD (:N 十 150) /cos :Q 
RT 180 一 2 *:Q 
FD (:N 十 150) /CCS :Q 
MAKE "A XCOR 
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MAKE ”B YCOR 
IF (AND (:A>:Z 十 40)(:A< :;Z 十 70)(:B 之 一 74) 
(:B 一 一 54)) [PU HT SETH 0 SETPOS SE ;Z 十 55 一 69 
PD BZSG 0 SETH 0] 
PU SETPOS SE :M 一 115 一 69 SETH 0 ST PD END 
4. 远程 射击 程序 清单 
TO S3 ;Q :V 
IF (OR (:Q>75) (:Q<<0)) fSTOP ]MAKE ”X ;M 一 
115 十 :Vx :Tx Cos90 一 :Q 
MAKE”Y 一 70 十 :Vx :Tx (SIN90 一 :Q) 一 4.9 
x :IT xx :T 
RT :QIF :T=0[LWwAIT 200] 
SETPOS SE ;X :;Y 
MAKE ”A XCOR 
MAKE ”B YCOR 
IF (AND  〈:A>>:Z 十 40)( :A<<:Z 十 70)(:B > 一 74) (， 
B << 一 54)) [PU SETH 0 SETPOS SE ;Z 十 55 一 69 PD 
BZSG 0 PU SETPOS SE :M 一 115 一 69 ST STOP] 
IF (OR 〈(:A 之 120)(:B >100)(:B 玫 一 75)) [PU SETPOS 
SE :M 一 115 一 69 SETH 0 ST PD MAKE “0 STOP] 
HT MAKE 2T ;T 十 .5 
S3 :Q :V 
END 
5. 子 程序 I 清单 
TO MB :C 
MAKE ”H RANDOM 80 
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MAKE ”Z RANDOM 60 
IF :C= 1[PUSETPOS SE ;Z 十 40 一 74PDREPEAT 2 
[FD 20 RT 90 FD 30 RT 90 ]STOP] 
PU SETPOS SE :H 十 25 :Z 十 30 PD 
REPEAT 4 [FD 20 RT 90] 
END 
6. 子 程序 工 清单 
TO PWMB :;A :B :;C 
MAKE ”M RANDOM 60 
MAKE ”N RANDOM 40 
IF ;A 一 0 [PU SETPOS SE 一 130 :N 十 80 PD SETX 
130] 
PU SETPOS SE :M 一 130 一 75(PD 
REPEAT 2 [FD 5 RT 90 FD 30 RT 90]IF :B = 0 [PU 
SETPOS SE :M 一 115 一 69PD MB :CPU SETPOS SE ， 
M 一 115 一 69 PD STOP] 
SETX 130 SETX 一 130 
MB :C 
PU SETPOS SE :M 一 115 一 69 PD 
END 
7. 子 程序 下 清单 
TO BZSG :D 
IF ;D 一 1 [REPEAT 8 [PU FD 15 PDFD 10PU BK 25 
RT 45]SETPC 0 PU SETPOS SE :H 十 25 :;Z 十 30 PD 
REPEAT 4 [FD 20 RT 90]SETPC 1 STOP] 
LT 70 
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REPEAT 5 [PU FD 30 DEFD 10PUBK40RT35] 

SETPC 0 PU SETPOS SE :Z 十 40 一 74 PD SETH 0 

REPEAT 2 [FD 20 RT 90 FD 30 RT 90] 

SETPC 1 

END 

说 明 

1. 本 程序 模块 使 用 的 是 APPLE-LOGO 语言 , 若 使 用 中 华 
机 上 固化 的 LOGO 语言 ,只 需 将 其 中 若干 语句 加 以 更 改 即 可 : 

CS -一 DRAW 

SETPOS SE ;:X :Y 一 SETXY :X :Y 

SETPC ->PC 

WAIT :;X->REPEAT :XD] 

IF (OR (条 件 1)( 条 件 2))[……]->IF ANYOF ( 1)( 


IF (AND( 条 件 1)( 条 件 2) )[……. ]->IF ALLOF ( 1)( 


2. 各 程序 模块 起 始 的 语句 :TO 为 编写 程序 开始 的 标志 。 
程序 运行 时 ,只 需 敲 入 其 后 的 程序 名 ,并 将 各 数据 变量 用 实在 
参数 代替 即 可 。 

3. 以 上 七 个 程序 模块 可 以 用 一 个 文件 名 , (比如 :SJYX) 
一 起 存盘 , 读 入 时 ,也 一 起 读 进 内 存 ， 

存 ;SAVE“SJYXu/ 

读 ;LOAD“SJYX kw 

(注意 :文件 名 前 必须 加 单 边 双 引号 , 即 “) 

二 ,游戏 运行 

1. 直接 射击 
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(1) 准 备 
ZB1 设置 炮 位 与 目标 ,如 图 1. 34。 


Te 本 
图 1.34 
(2) 射 击 ( 如 图 1. 35) 
加 
图 1.35 
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S1 45 150uwi 

其 中 45 为 :Q 的 实在 值 ,150 为 :L 的 实在 值 。 若 未 击 中 目标 ， 
则 反复 修正 :Q 或 :L 的 值 ,再 运行 ,直至 炮弹 击 中 目标 ,目标 
发 生 爆 炸 为 止 。 此 游戏 可 以 训练 对 角度 和 距离 的 目测 能 力 。 

2. 间接 射击 

(1) 准 备 

ZB 2 迪 
设置 炮 位 和 目标 ,如 图 1. 36。 


肛 
人 
/ 和 
人 
上 AN 
下 
Q 站 和 
| 
攻 有 
昌 
图 1.36 


其 中 , :Q 为 入 射 角 ,这 是 第 一 次 试 射 结 果 。 
〈2) 射 击 : 如 图 1. 37。 
S2 20 w 巡 
若 未 击 中 目标 , 则 需 修 正 :Q 的 值 , 再 运行 ,直至 击 中 目标 
为 止 。 此 游戏 可 以 训练 对 角度 目测 和 反射 物理 概念 的 理解 。 
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3. 远程 射击 
〈1) 准 备 
ZB 3w/ 
设置 炮 位 和 目标 ,如 图 1. 38。 


图 1.38 
这 是 第 一 次 试 射 结 果 , 其 中 , :V 为 初速 。 
(2) 射 击 : 如 图 1. 39。 
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S3 20 30w/ 


SR 所 2 
呈 W 加 
ss 
相 和 S 
各 和 ， 
图 1.39 


若 未 击 中 目标 , 则 需 重新 修正 :Q 或 :V 的 值 ,然后 再 运 
行 ,直至 击 中 目标 为 止 。 此 游戏 可 加 深 对 抛物 线 以 及 对 射程 、 
初速 及 射 角 等 物理 关系 的 理解 。 

说 明 : 

1. 这 三 个 射击 游戏 的 炮 位 和 目标 的 位 置 在 一 定 范围 内 
是 随机 的 , 故 每 次 开始 的 情况 设置 都 可 能 是 不 同 的 。 

2. 若 输入 的 参数 超出 范围 , 则 请 重新 输入 。 

3. 注意 准备 程序 ZB :E 中 的 数据 :E 与 射击 程序 的 对 应 
关系 : 

:了 一] 直接 射击 S1 :Q :L 

:E 一 2 ”间接 射击 : S2 :Q 

:下 一 3 远程 射击 :S2 :Q :V 
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第 二 章 ”实用 数据 库 软件 


本 章 介绍 采用 汉字 DBASE 工 数据 库 开发 的 四 个 实用 软 
件 . 这 些 软件 在 部 队 ,学 校 . 医 院 及 商店 使 用 多 年 , 深 受 用 户 称 
赞 。 读 者 可 以 直接 用 来 解决 本 单位 的 实际 问题 ,也 可 以 将 他 移 
植 到 其 他 微机 上 使 用 , 细 读 这 些 软件 后 , 定 能 提高 你 解决 实 
际 问题 的 能 力 和 水 平 。 


2.1 快速 盘点 管理 系统 


本 程序 按 用 户 经 营 商品 的 单价 分 别 接收 并 储存 当天 的 增 
(进货 ) , 减 (销售 ?数据 ,自动 快速 计算 输出 当日 的 结存 数量 与 
金额 ,让 经 营 者 及 时 掌握 盘 亏 及 库存 情况 ,提高 经 营 水 平和 竞 
争 能 力 . 此 外 ,程序 还 可 随时 提供 增 减 商品 表 , 未 增 减 商品 表 ， 
供 经 营 者 分 析 决策 。 

一 \ 快 速 盘点 数据 库 文 件 (KSPD. DBF) 结 构 

数据 库 结 构 “:A:KSPD. dbf 

记录 个 数 :6 

最 后 更 新 日 期 :01/01/88 


字段 ”字段 名 类 型 宽度 小数 
1 单价 Numeric 8 4 


2 昨日 结存 Numeric 5 
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3 本 日 增加 Numeric 5 
4 本 日 减少 Numeric 1 
5 本 日 结存 Numeric 5 
6 结存 金额 ”Numeric 10 4 


< X 恕 计 x * 38 


二 、 程 序 功能 结构 图 
快速 盘点 程序 功能 结构 图 如 2. 1 所 示 。 


快速 盘点 程序 
KSPD.CMD 


亢 起 亚 这 癌 涯 


图 2.1 快速 盘点 程序 功能 结构 图 
三 \ 源 程序 清单 及 解释 
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* 这 是 一 个 快速 盘点 结算 程序 
STOR 'N， TO HD 
DO WHILE HD=“N， 
ERASE 
ACCEPT “请 输入 日 期 (XX. XXX.XX)” 
?“ 日 期 :wRQ 正确 否 (Y/N)? 
WAIT TO HD 
ENDDO 
DO WHILE 1 一 2 
ERASE 
?“1 一 一 输入 数据 ?” 
?“2 一 一 计算 本 日 结存 数量 与 金额 ” 
?“3 一 一 打印 增 减 商 品 表 ” 
?“4 一 一 打印 未 增 减 商品 表 ?” 
“5 一 一 初次 输入 数据 (要 输 昨 日 结存 )?” 
?“0 一 一 结束 ” 
?“ 请 选择 !” 
WAIT TO XZ 
USE KSPD 
ERASE 
DO CASE 
CASE XZ 一 0)， 
USE 
CANCEL 
CASE XZ 一 17.OR.XZ 一 5， 
IF XZ 一 5， 
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TO RQ 


27 
28 
29 
30 
31 


32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


DELETE ALL 
PACK 
ENDIF 

IF XZ 一 1? 


REPL ALL 昨日 结存 WITH 本 日 结存 ,本 日 增加 WITH 


0, 本 日 减少 WITH 0 

ENDIF 

COUNT TO JL1 

STORE“Y， TO HD 

DO WHILE HD 一 “Y， 

STORE “N' TO XD 

STORE 0 TO JC 

STORE 0 TO DJ 

STORE 0 TO ZJ 

STORE 0 TO JS 

DO WHILE XD 王 N'， 

ERASE 

IF XZ 一 5， 

名 2,20 SAY “请 输入 昨日 结存 > GET JC 
ENDIF 

@ 3，20 SAY “请 输入 单价 ” GET DJ 

@ 4，20 SAY “请 输入 本 日 增加 ” GET ZJ 
@ 5，20 SAY “请 输入 本 日 减少 ” GET JS 
READ 

@ 6，20 SAY “请 校对 ,正确 否 (Y/N)” GET XD 
READ 
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52 
53 
514 
55 
56 
57 
58 
59 
60 
61 
62 
63 
614 
65 
66 
67 
68 
69 


70 
71 
72 
73 
714 
75 
76 


ENDDO 
LOCATE FOR 单价 = 王 DJ 

IF EOF 

APPEND BLANK 

REPL 单价 WITH DJ, 昨 日 结存 WITH JC 

ENDIF 

REPL 本 日 增加 WITH ZJ, 本 日 减少 WIHT JS 
ERASE 

@ 7,，20 SAY “继续 输入 吗 ? (Y/N)”GET HD 
READ 

ENDDO 

COUNT TO JL2 

IF JL1 <JL2 

INDEX ON 单价 TO KSPDIN 

ENDIF 

CASE XZ 一 2， 

USE KSPD 

REPL ALL 本 日 结存 WITH 昨日 结存 十 本 日 增加 一 本 日 
减少 

REPL ALL 结存 金额 WITH 单价 * 本 日 结存 
CASE XZ 一 3， 

USE KSPD INDEX KSPDIN 

STORE“ 本 日 增加 < 之 0. OR. 本 日 减少 < 之 0” TO TIJ 
SET PRINT ON 


的 入 
? 


的 
人 1 
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77 ?“&RQ 增 减 商品 表 ” 
78 LIST OFF 单价 ,本 日 增加 ,本 日 减少 ,本 日 结存 ,结存 金 
额 FOR &TJ 
79 7 
80 SET PRINT OFF 
81 _ SUM 结存 金额 TO 正 FOR &TIJ 
82 STORE 0 TO ZJ 
83 STORE 0 TO JS 
84 GO TOP 
85 DO WHILE .NOT. EOF 
86 STORE 单价 * 本 日 增加 十 ZJ TO ZJ 
87 STORE 单价 * 本 日 减少 十 JS TO JS 
88 SKIP 
89 ENDDO 
90 SET PRINT ON 
91 ?3“ ?9 
92  ?“ 本 日 增加 总 额 ”,ZJ，“ 减 少 总 额 ”，JS 
93 ?“ 增 减 结存 总 额 ”,JE 
94 ?3“? 
95 SET PRINT OFF 
96 CASE XZ 一 4? 
97 USE KSPD INDEX KSPDIN 
98 STORE“ 本 日 增加 =0. AND. 本 日 减少 0”TO TIJ 
99 SET PRINT ON 
1001 用 
101 2?“? 
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102 ?“&RQ 未 增 减 商品 表 ” 

103 LIST 单价, 本 日 结存 ,结存 金额 OFF FOR &TJ. AND,. 
本 日 结存 < 之 0 

104 3“ 

105 SET PRINT OFF 

106 _ SUM 结存 金额 TO WJE FOR &TJ 

107 SET PRINT ON 

108  ?“ 未 增 减 结存 总 额 ”,WJE,“ 总 计 结 存 额 ”， 正 十 WJE 

109 ?3“? 

110 SET PRINT OFF 

111 ENDCASE 

112 ENDDO 

113 RETURN 

注意 :各 语句 前 的 序号 是 为 解释 加 注 的 ,运行 的 程序 中 是 
不 应 该 有 的 。 

本 程序 第 1 句 是 一 个 注释 语句 , 注 明 本 程序 是 一 个 快速 
盘点 结算 程序 。 第 2 一 8 句 提示 并 接受 用 户 输入 日 期 ,采用 提 
示 用 户 校对 输入 日 期 的 办 法 ,保证 输入 日 期 的 正确 性 .循环 结 
构 直 到 用 户 确认 输入 的 日 期 正确 , 按 Y 键 中 止 循 环 。 宏 替换 
&RQ 将 变量 RQ 接受 的 日 期 奉 换 在 语句 中 的 &RQ 处 ,如 : 输 
入 为 93. 05. 11 +， 则 执行 第 6 句 的 屏幕 显示 为 

日 期 :93. 05. 11 正确 否 (Y/N) 

若 用 户 认 为 正确 按 Y 键 ; 否 则 按 N 键 ,再 重 输入 日 期 。 

第 9 一 12 句 是 程序 主体 ,为 让 用 户 自由 随意 选择 各 项 功 
能 , 除 “0? 以 外 的 1~5 各 项 功能 选择 运行 后 , 均 重 现 功 能 显 
示 , 供 用 户 选 择 执行 。 故 使 用 循环 语句 ,只 有 当 用 户 选 择 “0”， 
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才 结 束 循环 并 使 整个 程序 的 运行 停止 。 第 10 句 和 前 面 的 第 4 
句 是 清 屏幕 的 语句 ,作用 是 清除 执行 本 语句 前 屏幕 上 的 显示 。 
第 11 一 16 句 是 本 程序 的 功能 菜单 。17 句 提示 用 户 选 择 11 一 
16 句 中 的 功能 。19 句 是 打开 数据 库 KSPD. DBF。 21 句 是 区 别 
各 种 功能 情形 的 情形 语句 头 。22 句 判断 选择 , 若 为 “0? 则 执行 
23 句 关 闭 数 据 库 。24 句 终 止 程序 运行 , 回 到 数据 库 系统 点 
(，) 提 示 符 。 

第 25 句 是 选择 功能 1 或 5 的 情形 入 口 。26 一 29 句 完成 
初次 使 用 的 初 置 工作 。 即 删 去 旧 ( 或 称 表 演 ) 数 据 .30 一 32 句 ， 
对 通常 输入 数据 时 ,首先 将 前 一 天 的 本 日 结存 列 入 昨日 结存 。 
并 将 前 一 天 的 增加 减少 清 零 ( 以 免 昨 天 的 增 减 数 引起 混乱 )。 
33 句 统计 并 保存 前 一 天 的 记录 数 ,以 备 后 用 。34 句 为 使 35 句 
的 首次 循环 条 件 为 真 而 给 变量 HD 置 初 值 .第 36 句 同 34 句 。 
37~40 句 为 工作 变量 清 零 (0) ,41 句 一 52 句 为 校对 修改 输入 
错误 的 循环 ,其 方法 与 3 一 8 句 对 输入 日 期 的 处 理 类 似 , 其 中 
43 一 45 句 供 初次 使 用 输入 昨日 结存 。 

第 53 句 寻 找 库 中 单价 与 输入 单价 相等 的 记录 。54 句 判 
断 是 否 文件 尾 , 如 是 文件 尾 , 说 明 库 中 无 本 次 输入 单价 的 记 
录 , 则 由 55 句 添加 一 个 空 记 录 ,并 输入 数据 通过 56.58 句 装 
入 新 记录 ;如 不 是 文件 尾 , 说 明 输 入 单价 在 数据 库 中 已 经 存 
在 , 则 由 58 句 装 入 本 日 增加 和 减少 。 由 执行 60 句 时 用 户 的 回 
答 (Y/N) 决 定 36 一 62 句 是 否 重复 执行 。 

第 63 句 统计 并 保存 输入 数据 之 后 的 记录 数 。64 句 比 较 
输入 数据 前 后 的 记录 数 。 判 断 是 否 增加 了 记录 ,如 输入 后 的 记 
录 数 JL2 大 于 JL1, 则 执行 65 句 索引 数据 库 。 便于 选择 3 或 4 
时 按 索 引 库 打印 商品 表 。 
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第 71 句 是 选择 2( 计 算 结 存 ) 的 入 口 ,69 和 70 句 完 成 结 
存 数 量 与 金额 的 计算 。 

第 71 句 是 选择 3( 打 印 增 减 商品 表 ) 的 入 口 。72 句 打 开 索 
引 库 。73 句 赋 字符 串 值 到 变量 TJ, 供 78 句 和 81 句 作 条 件 使 
用 。74 名 连通 打印 机 。80 句 断 开打 印 机 ,下 同 。 对 于 未 经 扩 
充 , 只 有 一 个 扩充 槽 插入 Zao 卡 使 用 数据 库 的 情况 下 ,对 这 种 
与 打印 机 有 关 的 语句 前 加 一 个 星 号 “ * "作为 注释 句 。75 句 和 
76 句 使 打印 或 显示 空 走 两 行 .77 句 打 印 表 头 题目 .78 句 打 印 
列 出 本 日 有 增 减 变化 的 记录 ( 因 每 天 输入 前 增 、 减 通通 置 为 
零 , 输 入 后 打印 或 显示 时 不 等 于 零 , 就 表示 有 增加 或 减少 。81 
名 合计 增 、 减 结存 额 ,82 一 89 句 增 加 减少 总 额 ,92 一 93 句 打 
印 这 三 个 值 。 

第 96 句 是 选择 4( 打 印 未 增 减 表 ) 的 入 口 ,98 句 将 103 和 
106 句 中 用 的 条 件 送 入 变量 TJ, 103 句 按 单价 列 出 未 增 减 商 
品 的 结存 数量 与 金额 。106 句 合 计 未 增 减 商品 结存 额 ,108 句 
打印 未 增 减 商 品 结存 及 增 减 和 不 增 减 商品 总 金额 。 从 108 句 
总 金额 由 正 十 W 正 可见, 必须 先 打印 商品 增 减 表 (计算 正 )， 
才能 再 打印 未 增 减 表 中 的 总 结存 额 。 

四 .说明 

本 程序 比较 简短 ,比较 适宜 读者 学 习 。 本 程序 由 成 都 一 个 
电脑 部 组 织 开发 并 投入 使 用 ,为 满足 经 营 决策 及 业务 需要 , 历 
经 本 部 不 断 扩 充 完善 ,已 发 展 为 商品 经 营 的 综合 管理 软件 , 实 
现 了 从 商品 入 库 .调拨 ,库存 .销售 (批零 ) .汇总 等 全 面 微 机 


管理 。 


。90 。 


参考 信息 。 


2.2 军营 住房 管理 系统 


本 程序 是 应 某 部 房管 处 需要 开发 的 。 适 用 于 一 般 单位 的 
职工 住房 数据 信息 的 输入 .修改 .分 类 .检索 及 统计 。 可 为 用 户 
在 收 房租 .计划 新 建 .改建 和 分 配 职工 住房 等 工作 中 提供 决策 


程序 简单 明了 ,适应 读者 ,易于 维护 使 用 。 
一 、 军 草 住 房管 理 数据 库 (ZFGLK. DBF) 结 构 


数据 库 结 构 “: a: zfglk. dbf 

记录 个 数 :1 

最 后 更 新 日 期 :05/16/88 
字段 ”字段 名 类 型 
1 住址 Character 
2 建 面积 Numeric 
3 用 面积 Numeric 
4 租金 ”Numeric 
5 间 Character 
6 费 Character 
7 部 别 Character 
8 姓名 Character 
9 职务 Character 
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10 条 件 Character 2 
11 进 时 Character 6 


x 关 总 计 x x 61 


军营 住房 管理 软件 
ZFGL .CMD 


|， 按 部 别 检索 
按 收费 方式 检索 | 
按 住房 条 件 检索 


面积 
租金 


按 住房 条 件 统计 


| 天 [1 
按 部 别 统计 的 


按 住址 检索 
和 


退 出 


图 2.2 军营 住房 管理 软件 功能 结构 图 
其 中 :字段 住址 的 值 为 房屋 的 房 号 ,由 幢 、 单 元 .楼层 、 门 
号 之 代码 构成 ,共计 10 个 字符 ; 建 面积 即 住房 的 建筑 面积 ;用 
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面积 即 住房 的 使 用 面积 ; 费 为 收费 方式 ,其 值 是 : 扣 / 收 / 非 ( 即 
记录 中 字段 费 的 内 容 是 扣 , 收 , 非 三 者 之 一 , 扣 即 从 工资 中 扣 
除 , 收 即 收 款 , 非 即 非 扣 非 收 的 其 他 方式 )。 字 段 条 件 为 职工 居 
住房 屋 的 条 件 ,其 值 可 以 是 在 . 余 , 离 . 退 . 调 . 烈 . 转 之 一 .字段 
进 时 为 住户 住 进 房屋 的 时 间 (年 月 )。 
二 ,军营 住房 管理 软件 功能 结构 图 
住房 管理 软件 功能 结构 如 图 2. 2 所 示 。 
三 、 源 程序 清单 
x 这 是 一 个 住房 管理 程序 
DO WHILE 1 王 1 
ERASE 
? “1 一 一 录入 ” 
? “2 一 一 修改 ” 
? “3 一 一 检索 ” 
? “4 一 一 统计 ” 
? “0 一 一 结束 ” 
? “请 选择 ” 
10 WAIT TO XZ 
11 STORE“Y”TO HD 
12 USE ZFGLK 
13 DO CASE 
14 _ CASE XZ 王 0) 
15 CANCEL 
16 CASE XZ 一 1) 
17 DO WHIL HD 王 “YY) 
18 APPEND BLAND 
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19 
20 
21 
22 
23 
214 
25 
26 
27 
28 
29 
30 
31 
32 
33 
314 
35 
36 
37 
38 
39 
40 
41 
42 
43 
414 


?“ 记 录 号 ”,# 

EDIT 

? “继续 吗 (Y/VN )， 
WAIT TO HD 

IF HD=“'N， 

USE 

ENDIF 

ENDDO 

CASE XZ 一 2， 

Do WHILE HD=“Y， 
ERASE 

ACCEPT“ 请 输入 修改 的 房 号 ” TO FH 
LOCATE FOR 住址 =FH 
?“ 记 录 号 ”, 并 

EDIT 

? “继续 修改 吗 (Y/N)， 
WAIT TO HD 

IF HD= N)， 

USE 

STORE“N， TO HD 
ENDIF 

ENDDO 

CASE XZ=- 3， 
STORE “1 TO HD 
DO WHILE HD= 
REASE 
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45 
46 
47 
48 
49 
50 
51 
32 
53 
514 
55 
56 
57 
58 
59 
60 
61 
62 
63 
614 
65 
66 
67 
68 
69 
70 


? “1 一 一 部 别 ， 

? “2 一 一 收费 方式 ， 
? “3 一 一 住房 条 件 ， 
? 4 一 一 住址 ， 

?“5 一 一 姓名 ， 

?“0 一 一 退出 ， 

?“ 请 选择 检索 方式 ， 
WAIT TO XZ2 
ERASE 

? “检索 结果 是 打印 /显示 CY/N)， 
WAIT TO DY 

IF DY 一 “y， 

SET PRINT ON 
ELSE 

SET PRINT OFF 
ENDIF 

GO 1 

DO CASE 


CASE XZ2 一 “1 

ACCEPT “输入 部 别名 ”TO BB 

DO WHILE NOT. EOF 

LIST NEXT 10 OFF FOR @( 心 BB， ,部 别 ) 之 0 
?“ 按 任 一 键 继续 ， 

WAIT 

ENDDO 

CASE XZ2 一 4 
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71 
72 
73 
714 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 


92 
93 
914 
95 


ACCEPT “输入 住址 ，TO ZZ 

GO 1 

DO WHILE，NOT. EOF 

LIST NEXT OFF 10 FOR @( 心 ZZ): ,住址 ) 之 0 
? “ 按 任 一 键 继续 ， 

WAIT 

ENDDO 

CASE XZ2 一 5， 

ACCEPT“ 请 输入 姓名 ?TO XM 

LIST OFF FOR @( 心 XM ,姓名 ) >0 

? “ 按 任 一 键 继续 

WAIT 

CASE XZ2 一 2， 

ACCEPT“ 请 输入 收费 方式 ( 扣 / 收 / 非 )”TO SF 
DO WHILE. NOT. EOF 

LIST NEXT 10 OFF FOR @ (4 心 SF' , 费 ) >0 
? “ 按 任 一 键 继续 ， 

WAIT 

ENDDO 

CASE XZ2 一 3， 


ACCEPT “输入 住房 条 件 ( 在 / 余 / 离 / 退 / 调 / 烈 / 转 ) TO 


TJ” 
DO WHILE. NOT. EOF 
LIST NEXT 10 OFF FOR @ ( 必 JT” ,条 件 )0 
? “' 按 任 一 键 继续 ， 
WAIT 
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96 ENDDO 
97 CASE XZ2 一 0， 
98 STORE “0 .TO HD 
99 ENDCASE 
10 IF DY 一 “， 
101 SET PRINT OFF 
102 ”ENDIF 
103 ENDDO 
104 CASE XZ 一 4， 
105 STORE “1， TO HD 
106 DO WHILE HD 一 1， 
107 REASE 
108 ? 4 一 一 按 住房 条 件 统计 面积 与 租金 ， 
109 ?“2 一 一 按 部 别 统计 面积 与 租金 ? 
110 ? “0 一 一 退出 ， 
111 ? “请 选择 2 
112 WAIT TO XZ3 
113 ”DO CASE 
114 CASE XZ3 一 1， 
115 ACCEPT“ 请 输入 住房 条 件 (在 / 余 / 离 / 退 / 调 / 列 / 转 》， 
TO TJ 
116 ”SUM 建 面 积 ,用 面积 ,租金 TO JM,SM, ZJ FOR 
@( 心 TJ ,条 件 ) >0 
117 ? “建筑 面积 ”使 用 面积 租金 ， 
118 ? JM,SM,ZJ 
119 9 
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120 CASE XZ3 一 2， 
121 ACCEPT “请 输入 部 别 "TO BB 
122 ”SUM 建 面积 ,用 面积 ,租金 TO JM，SM, ZJ FOR 
@( 必 BB' ,部 别 ) >0 
123 ? “住房 部 别 为 ; 必 BB)， 
124 ? “建筑 面积 使 用 面积 租金 ” 
125 ? JM,SM,ZJ 
126 ?和 
127 CASE XZ3 一 0) 
128 STORE “0 TO HD 
129 ENDCASE 
130 IF DY=! 必 y， 
131 SET PRINT OFF 
132 ENDIF 
133 ENDDO 
134 ENDCASE 
135 ENDDO 
136 RETURN 
本 程序 比较 直观 简明 ,不 必 逐 句 解释 ,于 此 仅 对 可 能 费解 
的 地 方 解 释 如 下 ， 
1. 第 19 句 作用 是 , 当 执行 本 句 时 ,屏幕 显示 当前 记录 
号 ,因为 20 句 EDIT 命令 执行 时 ,要 求 提供 记录 号 ,用 户 照 执 
行 19 句 时 显示 的 记录 号 键入 后 , 则 按 提示 一 个 字段 一 个 字段 
的 输入 到 添加 的 空 记 录 中 。 
2. 程序 的 检索 部 分 (情形 )CASE 语句 没有 依 菜单 出 现 的 
顺序 出 现 1 一 5 种 情形 ,在 63 句 是 CASE XZ2= “1 ,70 句 是 
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CASE XZ2 王 “4 ,83 句 才 是 CASE XZ2 王 “2 ,这 是 允许 的 ,不 
影响 执行 效果 。 

3. 在 统计 程序 段 中 的 117 句 是 为 在 118 句 显示 统计 数 
字 的 上 面 , 显 示 对 应 的 名 称 ,这 些 名 称 的 位 置 根据 试 运行 时 
118 句 统计 数字 的 显示 位 置 ,用 插入 空格 来 调整 。 

人. 第 65 名 至 69 句 的 程序 功能 是 每 屏幕 显示 10 个 符合 
条 件 的 记录 ,用 户 看 清 后 任 按 一 键 , 又 循环 显示 下 一 屏 符合 条 
件 的 记录 ,如 此 直到 文件 结束 。 


2.3 通用 工资 管理 软件 


考虑 到 中 华 学 习 机 的 广 逃 普及 ,一 方面 为 满足 读者 学 习 
需要 ; 另 一 方面 为 了 让 用 户 更 好 地 发 挥 该 机 作用 。 将 这 个 工资 
管理 软件 作为 本 节 一 个 实例 。 为 照顾 读者 简明 易 读 。 省 去 了 
一 般 工 资 软件 不 具备 的 汇总 和 劳资 统计 部 分 。 只 需 将 本 软件 
的 库 结构 及 有 关 的 几 个 语句 作 相 应 改动 , 即 可 适 河 于 要 求 和 
习惯 不 同 的 单位 。 本 软件 经 地 方 和 军队 多 个 用 户 使 用 宗 际 说 
明 其 实用 性 .通用 性 好 。 

一 ,通用 工资 管理 软件 数据 库 (GZK. DBF)? 结 构 

数据 库 结 构 ;B; GZK. dbf 

记录 个 数 :33 

最 后 更 新 日 期 :01/01/88 

字段 ”字段 名 类 型 宽度 “小数 
1 号 Character 3 


es。 99。 


"， 100 。 


姓名 
基本 工资 
工龄 工资 
粮 贴 

民族 贴 
鸭 驶 
工资 合计 
四 种 补贴 
独子 费 
自行 车 
其 他 1 
合计 
储蓄 

储 金 

其 他 2 
国库 券 
扣 计 

签 章 


Character 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Numeric 


Character 
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二 ,通用 工资 管理 软件 功能 结构 图 
工资 管理 软件 功能 结构 如 图 2. 3 所 示 。 


工资 管理 软件 
GZ CMD 


| 打印 个 人 条 | 
打印 汇总 表 
司 


图 2.3 通用 工资 管理 软件 功能 结构 图 
三 、 源 程序 清单 
* 这 是 一 个 工资 处 理 程序 
DO WHILE 1<2 
ERASE 
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? 4 一 一 加 载 工资 信息 ， 

? 4 一 一 修改 工资 信息 ， 

? 3- 一 计算 工资 ， 

? 4 一 一 打印 工资 信息 

? “0-- 一 结束 ， 

?“ 请 选择 1 

WAIT TO xxZ1 

USE GZK 

ERASE 

DO CASE 

CASE XZ1 一 “0 

USE 

?“ 和 再见 ， 

CANCEL 

CASE XZ1 一 |) 

STORE 7 TO SR 

DO WHILE SR 一 

ERASE 

APPEND BLANK 

EDIT 

?“ 继 续 输入 吗 (YVN)?” 

WAIT TO SR. 

ENDDO 

CASE XZ1 一 2， 

GO TOP 

STORE “y7” TO XG 
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DO WHILE XG 王 “y， 

ERASE 

? “1 一 一 逐 人 修改 

? “2 一 一 个 别 修改 ， 

? “3 一 一 项 目 修 改 

? “14 一 一 插入 某 个 工资 信息 ， 


? “5 一 一 删除 某 人 工资 信息 ， 
? “6 一 一 使 记录 号 = 工 号 ， 
? “0 一 一 退出 ， 

?“ 请 选择 ” 

WAIT TO XZ2 

ERASE 

DO CASE 

CASE XZ2 一 0， 

USE 

STORE AN TO XG 

LOOP 

CASE XZ2 一 “1， 

GO TOP 

EDIT 


CASE XZ2 一 2， 

INPUT “请 输入 修改 人 员工 号 ， 
TO GH 

GO GH 

EDIT 

CASE XZ2 一 3， 
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GO TOP 
STORE“Y”TO XG 
DO WHILE XG 一 “y， 
ERASE 
?“1 一 一 按 项 目 逐 人 修改 ” 
“2 一 一 按 项 目 个 别 修改 ” 
“3 一 一 按 项 目 同 值 全 员 修 改 ” 
“4 一 一 每 个 人 工龄 工资 增加 0. 5 元 ” 
“0 一 一 退出 
“请 选择 !” 
WAIT TO XZ3 
ERASE 
IF XZ3 一 之 0) 
ACCEPT“ 请 输入 修改 项 目 名 :? 
TO ZDM 
ENDIF 
DO CASE 
CASE XZ3 一 0， 
STORE “N， TO XG 
LOOP 
CASE XZ3 一 1， 
GO TOP 
CHANGE FIELDS 号 ,姓名 ,&ZDM 
CASE XZ3 一 2， 
STORE“Y， TO HD 
DO WHILE HD=!y， 
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GO TOP 

INPUT“ 输 入 修改 人 工 号 ” 

TO GH 

GO GH 

INPUT“ 请 输入 新 数据 ”TO XSJ 

REPL NEXT 1 &ZDM WITH XSJ 

?“ 继 续 修 改 吗 (Y/VN)?” 

WAIT TO HD 

ENDDO 

CASE XZ3 一 3， 

INPUT“ 请 输入 新 内 容 ”TO_HM 

REPL ALL &ZDM WITH HM 

CASE XZ3 一 4? 

REPL ALL 工龄 工资 WITH 工龄 工资 
十 0.5 FOR 工龄 工资 <20 

ENDCASE 

ENDDO 

CASE XZ2 一 人 

INPUT “请 输入 要 插入 位 置 之 职工 的 工 号 ” 

TO GH 

GO GH 

INSERT BEFORE 

CASE XZ2 一 5， 

INPUT “请 输入 要 删除 职工 的 工 号 ”TO GH 

GO GH 

DELETE NEXT 1 


。105 。 


PACK 
CASE XZ2 一 6， 
GO TOP 
DO WHILE， NOT. EOF 
REPL 号 WITH STR( # ,3) 
SKIP 
ENDDO 
ENDCASE 
ENDDO 
CASE XZ1 一 3) 
DO GZJS 
CASE XZ1 一 4 
STORE “y， TO HD 
DO WHILE HD 王 人 了， 
ERASE 
?“1 一 一 打印 工资 薄 ” 
?“2 一 一 打印 发 给 个 人 的 工资 单 ? 
?“0 一 一 退出 ” 
?“ 请 选择 !” 
WAIT TO XZ14 
USE GZK 
ERASE 
DO CASE 
CASE XZ4 一 “0) 
STORE“N”TO HD 
CASE XZ4 一 “1， 
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STORE “TO JX 
DO WHILE JX= '， 
GO TOP 


INPUT “请 输入 本 次 打印 之 第 一 人 的 工 号 ” 


GO GH1 
STORE GH1 TO JLH1 


INPUT “请 输入 本 次 打印 之 最 后 一 人 的 工 号 ” 


TO GH2 

STORE GH2 TO JLH2 

N 王 JLH2 一 JLH1I 十 1 

GO JLHI1 

DO GZDY 

?“ 继 续 打 印 吗 ? (CY/VN)” 
WAIT TO JX 

ENDDO 

CASE X24 一 2， 

USE GZK 


INPUT “请 输入 打印 第 一 人 的 工 号 ”TO CHI1 
INPUT “请 输入 打印 人 数 ? TO N1 


STORE GH1I TO JLH1 

GO JLHI 

SET DEVICE TO PRINT 

?“ 请 调 好 纸 后 , 任 敲 一 键 ” 
WAIT 

SET PRINT ON 

DO WHILE NI>0 
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SET PRINT ON 

LIST NEXT 1 OFF TO PRINT 

3 < 

SET PRINT OFF 

SKIP 

N1 王 N1 一 1 

ENDDO 

9 

ENDCASE 

ENDDO 

ENDCASE 

ENDDO 

RETURN 

计算 子 程序 清单 如 下 

x 这 是 工资 计算 子 程序 ,名 字 :GZJS. CMD 

REPL ALL 工资 合计 WITH 基本 工资 十 工龄 工资 
十 粮 贴 十 民族 贴 十 驾驶 

REPL ALL 小 计 WITH 工资 合计 十 四 种 补贴 十 独子 费 

十 自行 车 十 其 他 1 

REPL ALL 扣 计 WITH 储蓄 十 储 金 十 其 他 2 十 国库 券 

REPL ALL 实 发 数 WITH 小 计 一 扣 计 

RETURN 

打印 工资 表 子 程序 清单 如 下 ; 

x 这 是 打印 工资 表 子 程序 ,名 字 :GZDY. CMD 

STORE N TO N1 

SET DEVICE TO PRINT 
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STORE 0 TO HS 

DO WHILE N>0 

STORE HS 十 1 TO HS 

IF VAL (XZ4) <<2 

IF HS 一 1 

SET PRINT OFF 

SET CONSOLE ON 

?“ 请 调 纸 到 新 页 开始 ” 

WAIT 

ERASE 

SET CONSOLE OFF 

@1，1 SAY CHR (27) 十 “TB， 
@2，20 SAY“ 工资 发 放 表 ?” 
SET PRINT OFF 

@3,1SAY CHR (27) 十 5TA， 
@4，9 SAY“ 年 月 日 ” 
@4，139 SAY“ 第 页 共 页 ” 


@5，1 SAY“ 一 一 ……: 多 
@5，56 SAY “一 一 …… 一 一 ” 
@5，111 SAY “一 一 …… 一 一 ” 
@5，161 SAY“ 一 一 ……. 一 一 ?” 


SET PRINT ON 

? “号 姓 名 基本 工资 “工龄 工资 ” 粮 ， 

贴 民族 贴 蜀 驶 工资 合计 四 种 补贴 ; 

独子 费 自行 车 其 他 1 小 计 储蓄 ; 

储 金 ”其 他 2 国库 券 ” 扣 计 实 发 数 签 章 ” 
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LIST OFF NEXT 1 TO PRINT 
STORE 9 TO [ 
@ ITI，1 SAY“.……- 风 
ELSE 
LIST OFF NEXT 1 TO PRINT 
STORE [十 1TOI 
@ IT, 1] SAY“.…。 儿 
ENDIEF 
ENDIF 
SET PRINT OFF 
IF HS 三 22.0R.N 王 1 
DO GZHJDY 
STORE N 一 1TON 
SKIP 
ENDDO 
SET CONSOLE ON 
SET PRINT OFF 
RETURN 
构造 并 打印 合计 子 程序 清单 如 下 ， 
* 本 子 程序 构造 并 打印 合计 ,程序 名 :GZHJDY 
DO CASE 
CASE N 王 1 
STORE HS TO N1 
CASE HS 一 22 
STORE 22 TO NI1 
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ENDCASE 

GO JLHI 

SUM NEXT N1 基本 工资 ,工龄 工资 , 粮 贴 , 民 
族 贴 ,驾驶 ,工资 合计 ,国库 券 ,TO J1,]2,J3,JI4 
J6 ,J21 

GO JLHI1 

SUM NEXT N1 四 种 补贴 ,独子 费 , 自 行车 ,其 
他 1 ,小 计 ，, 储 蓄 , 储 金 ,其 他 2, 扣 计 ， 

实 发 数 TO J8,J9,J10,Ji1,J12,J13,J14,J15,J16,J17 
IF HS 一 22 

STORE JLH1I 十 22 TO JULHI1 

ENDIEF 

STORE 【 十 1 TO IT 

SET PRINT ON 

?“ 本 页 合计 ” 

@I,，11SAY STR (J1.9,2) 

@I,， 23 SAY STR (J2,9,2) 

何 T, 32 SAY STR (J3,7,2) 

人 TI,，39 SAY STR (T4,6,2) 

@T, 45 SAY STR (J5,6,2) 


@I, 51 SAY STR (J6,10,2) 
@ 1I, 61 SAY STR (J8,8,2) 
@ 1I, 69 SAY STR (J9,7,2) 
@1I, 76 SAVSTR (JI0,3,2) 
@I, 81SAY STR (J11,8,2) 


@ 1I, 92 SAY STR (J12,10,2) 
@ I,，102 SAY STR (J13,9,2) 
@TI,， 111 SAY STR (J14,8,2) 
@ TI,，119 SAY STR (J15,8,2) 
@ I, 127 SAY STR (J21.8,2) 
@1I, 135 SAV STR (J16,9,2) 
@ I，144SAY STR (JI17,10,2 
IF VAL (XZ4) <<>3 

@ I 十 1，1 SAY“ 一 一 …… 一 一 ” 
SET PRINT ON 


6 多 
? 


SET PRINT OFEF 
ENDIEF 

STORE 0 TO HS 
ENDIR 
RETURN 


2.4 汉 黄 信息 检索 系统 


一 、 系 统 功 能 

本 软件 采用 模块 化 设计 技术 , 按 各 种 不 同 的 逻辑 功能 ,使 
用 不 同 的 模块 实现 。 

系统 提供 8 种 建 库 及 维护 功能 ,5 种 检索 功能 ,归纳 如 下 ; 

1. 建 库 功能 。 实 现 计算 机 联机 信息 检索 要 建立 庞大 的 信 
息 和 检索 库 , 本 系统 提供 了 方便 的 建 库 功 能 。 

2. 库 维护 功能 .本 系统 对 库 中 的 内 容 具 有 便利 的 增加 、 删 
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除 ,更 新 等 信息 维护 功能 。 

3. 逻辑 运算 检索 功能 。 本 系统 以 各 种 罗 辑 运算 检索 信息 。 

公 检 索 途径 广 。 本 系统 可 按 主题 词 , 作 者 名 ,出 版 时 间 及 
各 种 用 户 定义 的 叙 词 进行 检索 。 

5. 查 错 纠 错 功能 .系统 对 检索 者 输入 的 错误 叙 词 或 系统 
没 定义 的 叙 词 ,具有 查 错 并 协助 检索 者 纽 错 的 能 力 

6. 本 系统 对 检索 库 的 超 长 记录 具有 变换 存储 .跟踪 检索 
功能 。 

二 ,程序 功能 结构 图 

系统 结构 与 工作 关系 如 加 2. 4 折 示 。 


XXJS.PRG 


XXJSJLDB. PRG 4 XXJSDATA.PRG 


XXJSNMER. PRC XXJSFIND. PRSG XXJSANDO. PRG 


[| XX'SABSC. PRG XXJSANDI.PRG 
XXJSCONT.PRC XXJSNTOM,PRG 


XXJSCASE. PRG] [XXJSFMRO.TRG ] 
图 2.4 系统 结 居 与 工作 关系 图 
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各 模块 流程 图 如 图 2. 5 一 2. 12 所 示 。 
1.XXJS. PRG( 图 2. 5) 
功能 :(1) 审 核 狙 户 使 用 权 
(2) 调 用 XXJSFIND. PRG 程序 检索 信息 
(3) 调 用 XXJSDATA. PRG 程序 维护 库 中 信息 


四 答 口令 5 次 否 》 


回 到 MS--DOS 


2. XXJSJLDB,. PRG( 图 2.6) 
功能 :建立 检索 库 
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图 2.6 
3. XXJSFIND. PRG (图 2.7) 
功能 :检索 信息 
4.XXJSDATA. PRG( 图 2. 8) 
功能 :维护 库 中 信息 
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刻骨 起 甫 污 肖 


习 细 上 并 龟 絮 焉 亚 


障 芝 了 龟 攻 还 允 


ESEETRERREES 


EREEEEEE 和 


狠 垦 下 亚 


霸 基 迎 甫 攻 
忽 嫩 才 幸 < 愉 坏 要 量 共 
迎 亚 攻 弯 < 

而 付 锡 赂 直 坎 和 手 风 幸 < 
而 和 似 迎 甫 此 趣 汉 多 皇 < 
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5. XXJSCONT. PRG( 图 2. 9) 
功能 :统计 信息 量 


计数 器 置 零 


告 相应 字段 送 入 内 存 变量 
内 存 变量 左 移 一 个 元 素 
计数 器 加 一 送 计数 器 


内 存 变 量 空 否 ? 


空 


字段 处 理 完 否 ? 


一 


元 


打印 信息 名 及 数量 


图 2.9 
6.XXJSANDO. PRG( 图 2. 10) 


功能 :(1) 将 第 一 操作 对 象 的 值 送 入 缓冲 区 
2) 调 用 XXJSAND1. PRG 


(3) 输 出 还 辑 “ 与 ?结果 
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打印 逻辑 “与 "结果 
信息 数量 及 地 址 号 ) 


图 2.10 
7.XXJSAND1. PRG (图 2. 11) 
功能 :实现 逻辑 “与 ?运算 
8. XXJSABSC. PRG( 图 2.12) 
功能 :检索 输出 信息 内 容 
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打开 信息 及 索引 库 


第 二 操作 对 象 中 有 和 否 ? 
有 


计数 器 加 一 送 计数 器 


查找 对 应 的 内 容 


输出 信息 内 容 


当前 信息 地 址 号 联 
接 于 对 应 内 存 变量 


再 定义 缓冲 区 否 ? 
不 


图 2.11 图 2.12 
三 、 源 程序 清单 
x 程序 名 ;XXJS. COM 
ERASE 
PESTORE FROM XXJSMEMO. MEM 
IF LOCK 一 “NT) 
? “passable， 
ELSE 
SET TALK OFF 
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STORE 0 TO M0 

DO WHILE M0 <<5 

REMARK 请 输入 口令 ! 

SET CONSOLE OFF 

ACCEPT “entre the password” TO MI1 
SET CONSOLE ON 

IF M1 王 LOCK 

STORE 5 TO M0 

ELSE 

? 口令 有 误 ， 

SJORE M0 十 1 TO M0 

ENDIF 

IF M1 < 之 LOCK 

? “全 是 有 误 的 口令 , 退 至 操作 系统 ” 
QUIT 

ENDIF 

ENDIEF 

ERASE 


REMARK 欢迎 使 用 XXJS 第 2. 0 版 
? 
REMARK ”欢迎 您 对 本 软件 提出 各 种 意见 


REMARK 

REMARK 

? 

DO WHILE M0 <<100 
STORE M0 十 1 TO M0 
ENDDO 


REMARK ”键入 (ENTER ) 键 ,为 您 检索 信息 
? 


REMARK ”键入 口令 ) 为 您 维护 信息 库 及 检索 库 


?“ 请 选择 ! 

? 

RESTORE FROM XXXJSMEMQ. MEM 
SET CONSOLE OFF 

ACCEPT TO CHOICE 

SET CONSOLE ON 

ERASE 

SET TALK OFF 
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IF CHOICE 一 “DATE” 
DO XXJSDATA 

ELSE 

DO XXJSFIND 

ENDIEF 

RETURN 


x 程序 名 :XXJSDATA. CMD 

USE 

RESTORE FROM XXXJSMEMQ. MEM 
DO WHILE T 

ERASE 


? “键入 (0 ,定义 驱动 器 及 库 名 等 

?“ 键 入 (1, 建 立信 息 库 结构 及 装 入 
?“ 键 入 (2, 建 立 检索 装 入 及 其 增 、 删 、 改 ? 
? “键入 (3), 信 息 库 装 入， 

?“ 键 入 (4 检索 库 装 入 及 其 增删 、 改 ， 
? “键入 (5), 维 护 信息 库 ， 

? “键入 (6), 维 护 检 索 库 ， 

?“ 键 入 (7), 索 引信 息 库 和 检索 库 ， 

?“ 键 入 (8) ,检索 信息 

2 “键入 (ESC) ,退出 本 软件 ， 


? “您 选择 的 是 数字 键 ， 

WAIT TO CHOICE 

DO CASE 

ERASE 

?“ 您 选择 的 是 :定义 驱动 器 库 名 等 ， 

ACCEPT“ 请 键入 驱动 器 号 及 信息 库 名 ”TO FN2 
成 

ACCEPT“ 请 键入 驱动 器 及 信息 库 索引 文件 名 ” 
TO FN4 

? 

ACCEPT “请 键入 驱动 器 号 及 检索 库 名 ， TO FN1 
9 

ACCEPT “请 输入 驱动 器 号 及 检索 库 索 引文 件 名 ， 
TO FN3 

? 

INPUT “请 键入 检索 库 (NUMBERi) 字 段 宽 度 ， 
TO M3 

SAVE TO XXJSMEMQ. MEM 

CASE CHOICE 一 1， 

ERASE 

? “您 选择 的 是 建立 信息 库 结构 及 装 入 ， 

7 

? “信息 库 结构 准备 好 了 吗 ? 请 键入 (Y) 或 CN)， 
WAIT TO M6 
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IF M6 一 “， 
? 
?“ 请 使 用 ((INFORNMBER ) 为 第 1 个 字段 名 ， 
类 型 为 “C?2” 
CREATE &FN2 
ENDIF 
CASE CHOICE 一 “2， 
ERASE 
? “您 选择 的 是 ,建立 检索 库 结 构 及 装 入 ， 
中 
? “您 的 检索 库 结构 设 计 好 了 吗 ?请 键入 (Y 或 (N) 
WAIT TO M6 
IF M6 一 “了 ， 
? 
? “请 使 用 ((KEY) ;为 第 1 个 字段 名 ， 
(NUMBERi) 为 第 i 十 1 个 字段 名 (i=1,2,3,4), 类 型 为 
cco， 
CREATE &FN1 
ENDIF 
CASE CHOICE 一 “3， 
ERASE 
? “您 选择 的 是 ,为 信息 库 装 入 信息 ， 
USE 区 FN2 
APPEND 
CASE CHOICE 一 “4? 
ERASE 
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? “您 选择 的 是 ,为 检索 库 装 入 检索 词 及 信息 地 址 ? 
DO XXJSJLDB 

CASE CHOICE 一 5， 

ERASE 

?“ 您 选择 的 是 ,为 检索 库 装 入 词 及 信息 地 址 ” 
DO XXJSJLDB 

CASE CHOICE 一 5， 

ERASE 

?“ 您 选择 的 是 ,维护 信息 库 ? 

? 

USE 区 FN2 

USE &FN2 INDEX &FN14 

STORE “Y，TO M6 

ERASE 

? “下 面 是 修改 添加、 删除 信 息 内 容 ， 

? 

? “您 要 修改 .添加 ,删除 信息 内 容 吗 ?请 键入 (Y)》 
或 (N) 

WAIT TO M6 

ERASE 

DO WHILE M6 一 “Y， 

IF M6 <<>“， 

LOOP 

ENDIF 

ACCEPT“ 请 键入 信息 地 址 ” TO MRI1 

FIND &MRI1 


。125。 


IF INFORNMBER 王 MRI1 

? 并 

EDIT 

ERASE 

? “您 要 继续 修改 ,添加 删除 信 息 内 容 吗 ?请 键入 
(Y) 或 (N， 

WAIT TO MI6 

ELSE 

? “ 抱 ! 这 里 不 用 ((&MR17 >” 

? 

ENDIEF 

ENDDO 

STORE “Y” TO MI6 

ERASE 

? “您 选择 的 是 恢复 带 (* ) 号 的 信息 记录 ， 
? “您 要 恢复 带 (* ) 号 的 信息 记录 吗 ? 请 键入 (Y》 
或 CN? 呈 

WAIT TO M6 

ERASE 

DO WHILE M6 一 “YY， 

IF M6 <<>>“Y)， 

LOOP 

ENDIF 

ACCEPT “请 键入 带 (* ) 号 的 信息 地 址 ， 
TO MR1 
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FIND &MR1 

IF INFORNMBER 王 MR1 

RECALL NEXT 1 

DISP 

?“ 您 要 继续 恢复 带 (* ) 号 的 信息 内 容 吗 ?请 键入 (Y) 或 
(N?17 

WAIT TO M6 

ELSE 

? “抱歉 ! 这 里 不 用 ((&MR17》， 

5 

ENDIEF 

ENDDO 

ERASE 

? “下 面 供 您 选择 的 是 ,用 ((PACK) 命令 删除 带 (* ) 号 
的 信息 内 容 ， 

? 

? “注意 ! 一 旦 使 用 ((PACK) 命令 所 有 带 (* ) 号 的 信息 
内 容 将 永远 被 删除 ， 

5 

?“ 您 一 定 要 删除 带 (* ?号 的 信息 内 容 吗 ?请 键入 (Y) 或 
(N1， 


WAIT TO M6 
IF M6 一 “Y)， 
PACK 

ENDIF 


CASE CHOICE 一 “6 


ERASE 
? “您 选择 的 是 椎 护 检 索 库 ， 

USE &EFN1 

USE &FN1 INDEX 区 FN3 

STORE“Y，TO M6 

ERASE 

? “下 面 供 您 选择 的 是 ,恢复 带 (* ) 号 的 检索 词 ， 

? “您 要 恢复 带 (* ) 号 的 检索 词 吗 ? 请 键入 (Y) 或 (N?1 
WAIT TO M6 

ERASE 

DO WHILE M6 一 “Y， 

IF M6 一 > “Y， 

LOOP 

ENDIF 

ACCEPT“ 请 键入 希望 恢复 的 检索 词 ” TO MRI1 

FIND &MRI1 

IF KEY 王 MR1 

RECALL NEXT 1 

DISP 

?“ 您 要 继续 恢复 带 (* ) 号 的 检索 词 吗 ? 请 键入 (Y) 或 
(NI 

WAIT TO M6 

ELSE 

? “抱歉 ! 这 里 不 用 ((&MR17 >， 

5 
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ENDIEF 
ENDDO 
ERASE 
? “下 面 供 您 选择 的 是 ,用 (PACK 命令 删除 带 (* ) 号 的 
检索 词 
? “注意 ! 一 旦 用 PACK 命令 ,所 有 带 (* ) 号 的 检索 词 被 
删除 ! 
? 
? “您 一 定 要 删除 所 有 带 (* ) 号 的 检索 词 吗 ? 请 键入 (Y) 
或 CN?! 
WAIT TO M6 
IF M6 一 “YY， 
PACK 
ENDIF 
CASE CHOICE 一 7， 
ERASE 
? “您 选择 的 是 ,对 信息 库 及 检索 库 索 引 ” 
? “索引 信息 库 吗 ?请 键入 (Y 或 CN) 
WAIT TO M6 
IF M6 一 “Y) 
? “正在 索引 信息 库 , 请 等 待 上 
USE &FN2 
INDEX ON INFORNMBER TO KEFN14 
ENDIEF 
? “索引 检索 库 吗 ? 请 键入 (Y) 或 CN?1 
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WAIT TO M6 

IF M6 一 学 ， 

? “正在 索引 检索 库 , 请 等 待 
USE &FN1 

INDEX ON KEY TO &FN3 
ENDIF 

CASE CHOICE 一 48 

? “您 选择 的 是 ,检索 信息 ， 
DO XXJSFIND 

ENDCASE 

ENDDO 

RETURN 


x 程序 名 :;XXJSJLDB. CMD 

USE &FN1 

SET TALK OFF 

DO WHILE 6912<<8016 

ACCEPT “请 键入 检索 词 1” TO MR1 

ACCEPT “请 键入 检索 词 2”TO MR2 

ACCEPT “请 键入 检索 词 3” TO MR3 

ACCEPT “请 键入 检索 词 4 TO MR4 

ACCEPT “请 键入 检索 词 5， TO MR5 

STORE 1 TO M2 

DO WHILE M2 一 6 

LOCATE NEXT 1000 FOR KEY 王 MR1. OR. 
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KEY 一 MR2. OR.KEY 王 MR3.OR.KEY 一 MR4. OR. 
KEY 一 MR5 

IF KEY 王 MR1. OR.KEY 王 MR2. OR.KEY 一 MR3. 
OR.KEY 王 MR4.OR.KEY 一 MR5 


DO CASE 

CASE KEY 王 MRI1 
STORE “′ ”TO MRI1 
CASE KEY 一 MR2 
STORE “ ”TO MR2 
CASE 人 KEY 一 MR3 
STORE “ ”TO MR3 
CASE KEY 一 MR14 
STORE “ ，TO MR4 
CASE KEY 一 MR5 
STORE “ ， TO MR5 
ENDCASE 

? 提 

EDIT 

ENDIEF 


STORE M2 十 1 TO M2 
? MR1,MR2,MR3,MR4,MR5 
ENDDO 
GO BOTTOM 
STORE 1 TO M9 
DO WHILE M9 <6 
DO CASE 
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CASE MR1 < > ， 
APPEND BLANK 
REPLACE NEXT 1 KEY WITH MR1 
? 拓 
EDIT 
STORE “ ，TO MRI1 
CASE MR2 << 盖  ， 
APPEND BLANK 
REPLACE NEXT 1 KEY WITH MR2 
? 拓 
EDIT 
STORE “ ，TO MR2 
CASE MR3 < ， 
APPEND BLANK 
REPLACE NEXT 1 KEY WITH MR3 
? 提 
EDIT 
STORE 上 ，TO MR3 
CASE MR4 < > ， 
APPEND BLANK 
REPLACE NEXT 1 KEY WITH MR4 
? 提 
EDIT 
STORE “ ， TO MR41 
CASE MR5< 之 ， 
APPEND BLANK 
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REPLACE NEXT 1 KEY WITH MR5 
? 并 

EDIT 

STORE ′ ”TO MR5 

ENDCASE 

GOTO TOP 

ENDDO 

RETURN 


x 程序 名 :XXJSFIND. CMD 

USE &FN1 

USE &EFN1 INDEX &FN3 

DO WHILE 2<<3 

ERASE 

? x x 交 开始 一 个 新 检索 过 程 * x* *， 


? “” ， 键入 (0) ,为 您 检索 信息 地 址 与 文摘 等 


?“ ， 键入 (1), 以 循环 逻辑 “与 ?方式 检索 信息 ， 


?“ ， 键入 (2》, 以 逻辑 “与 ?方式 检索 信息 ， 
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?“ ， 键入 3, 以 逻辑 “ 非 ?方式 检索 信息 ， 
?“ 键入 (4) ,为 您 检索 信息 地 址 ， 


?4 键入 (ESc) ,退出 本 软件 ， 


?“ 您 选择 的 是 一 个 数字 键 ” 
? 
WAIT TO CHOICE 
ERASE 
DO CASE 
CASE CHOICE 一 0， 
SET PRINT ON 
? “您 选择 的 是 ,检索 信息 地 址 及 文摘 等 :” 
有 
SET PRINT OFF 
STORE “NO WORD，TO M6 
DO WHILE M6 王 NO WORD， 
ACCEPT “请 键入 一 个 检索 词 !，TO MR0 
STORE MR0 TO MR1 
FIND &MR0 
IF KEY 王 MR0 
DO XXJSCONT 
IF MR>0 
STORE MR1 TO MR0 
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FIND &MR0I0 

STORE MR0 一 “1， TO MR0 
STORE 一 1 TO M7 

SET PRINT ON 

?“(&MR1) 信息 名 及 文摘 等 :， 
SET PRINT OFF 

DO WHILE M7 王 一 1.OR.TRIM 


(KEY) 一 MRI0 

DO XXJSNMER 
DO XXJSAESC 
DO XXJSFMR0 
ENDDO 

ENDDO 

ENDIF 

STORE “，TO M6 
ELSE 


5 
?“ 抱 菊 ”! 这 里 不 用 ((&MR07 ” 
? 
STORE “NO WORD， TO M6 
ENDIEF 
ENDDO 
CASE CHOICE 一 “1， 
STORE 0 TOT 
SET PRINT ON 
? “您 选择 的 是 ,循环 逻辑 “与 ?检索 方式 :， 
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了 
SET PRINT OFF 
STORE “NO WORD， TO M6 
DO WHILE M6 王 'NO WORD， 
ACCEPT “请 输入 第 一 个 检索 词 ! ”TO MRI1 
FIND 区 MRI1 
? 
x DO XXJSCONT 
IF KEY 王 MRI1 
DO XXJSNTOM 
DO WHILE M6 王 NO WORD， 
ACCEPT“ 请 键入 第 二 个 检索 词 ! TO MR 
FIND &MR 
IF KEY 一 MR. 
SET PRINT ON 
? 
?4 (〈((&RMR1))“ 与 ?((MR >， 
SET PRINT OFF 
x DO XXJSCONT 
STORE 0 TO M14 
STORE “ ，TO MER2,MER3,MER14， 
MER1 
DO XXJSAND0 
IF M4>0 
?“ 您 要 打印 信息 吗 ? 请 键入 (Y? 或 CN? 铺 
WAIT TO M6 
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IF M6 一 “ 们 ” 


DO XXJSABSC 
ENDIF 

ENDIEF 

STORE “ ”TO M6 
ELSE 


人 
? “ 抱 区 ! 这 里 不 用 ((〈 芭 MR >， 
2 
STORE “NO WORD，TO M6 
ENDIF 
ENDDO 
DO WHILE MR < 之 “N， 
? 
ACCEPT “您 希望 再 作 一 次 逻辑 “ 与 检索 吗 ?请 键入 一 个 
检索 词 或 CN)!” TO MR 
IF MR 一 > “N， 
FIND &MR 
IF KEY 一 MR 
SET PRINT ON 
? 
?2 与”( 必 MR))， 
? 
SET PRINT OFF 
IF M4>0 
STORE MER1 TO MNUMBER1 
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STORE MER2 TO MNUMBER2 
STORE MER3 TO MNUMBER3 
STORE MER4 TO MNUMBER1 


ENDIF 

STORE 0 TO M1 

STORE “ ”TO MER1,MER2,MER3， 
MER4 

DO XXJSAND0 

IF M4>0 


? “您 要 打印 信息 吗 ?请 键入 (Y 或 CN?1 

WAIT TO M6 

IF M6 一 “YY， 

DO XXJSABSC 

ENDIF 

ENDIF 

ELSE 

? 

? “抱歉 ! 这 里 不 用 ((&MRy? > 

? 

ENDIF 

ENDIEF 

ENDDO 

STORE 和 ，TO M6 

ELSE 

? 

? “ 抱 骸 ! 这 里 不 用 ((〈 攻 MRI17 7》 
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2 

STORE “NO WORD，TO M6 

ENDIF 

ENDDO 

CASE CHOICE 一 27. OR. CHOICE 一 3， 

STORE 0 TOT 

IF CHOICE 一 2， 

SET PRINT ON 

? “您 选择 的 是 ,逻辑 “与 ?检索 方式 

? 

? 

SET PRINT OFF 

ELSE 

STORE 1 TO T 

SET PRINT ON 

? “您 选择 的 是 ,逻辑 “ 非 ? 检 索 方 式 :， 

SET PRINT OFF 

ENDIF 

STORE “NO WORD，TO M6 

DO WHILE M6 王 NO WORD， 

ACCEPT “请 键入 第 一 个 检索 词 ! ”TO MR 

FIND &MR 

? 

IF KEY 王 MR. 

DO WHILE M6 王 "NO WORD， 

ACCEPT “请 键入 第 二 个 检索 词 !， TO MRI1 
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FIND &MR1 
IF KEY 王 MRI1 
SRT PRINT ON 
? 
IFT 王 1 
?“((&RMR)) 非 2?((RMR17 > 
ELSE 
?“((&RMR) 汪 与 ?((&MR1) 
ENDIF 
SET PRINT OFF 
STORE 0 TO M14 
STORE “ ，TO MER1 ,MER2 ,MER3， 
MER4 
STORE MR 一 “1， TO MR2 
STORE 一 1 TO M8 
FIND KMR. 
DO WHILE M8 王 一 1 .OR. TRIM (KEY) 
一 MR2 
STORE MR1 一 “1 TO MR0 
STORE 一 1 TO M7 
DO XXJSNTOM 
FIND KMR1 
DO WHILE M7 王 一 1 .OR.TRIM (KEY) 
一 MRI0 
DO XXJSAND0 
DO XXJSFMR0 
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ENDDO 

STORE M8 十 1 TO M8 

IF M8<<10 

STORE $ (MR2,1,LEN(MR2) 一 1) 

一 STR (M8,1) TO MR2 

ELSE 

IF M8=10 

STORE $ (MR2,1,LEN (MR2) 一 1) 
STR (M8,2) TO MR2 

ELSE 

STORE $ (MR2,1,LEN (MR2) 一 2) 

一 STR (M8,2) TO MR2 

ENDIF 

ENDIF 

FIND &MR2 

ENDDO 

STORE “ ，TO MI6 

ELSE 

? 

? “抱歉 ! 这 里 不 用 ((&MR17 >， 

? 

STORE “NO WORD，TO M6 

ENDIF 

ENDDO 

SET PRINT ON 

? 


。141。 


IF T=1 

?“ 逻辑 “ 非 ?数量 :”,M4 

ELSE 

?“ 逻辑 “与 ?数量 :”,M4 

ENDIF 

? 

?“ 信息 地 址 :” 

? 

? MER1 ,MER2 ,MER3 ,MER4 

? 

SER PRINT OFF 

IF M4>0 

? “您 要 打印 信息 吗 ? 请 键入 (Y) 或 CN ! ， 

WAIT TO M6 

IF M6 王 “人 

DO XXJSABSC 

ENDIEF 

ENDIEF 

DO WHILE MR<< > 从 ， 

IF T 王 1 

? 

ACCEPT “您 希望 再 做 一 次 逻辑 “ 非 ” 检 索 吗 ?请 键入 一 个 

检索 词 或 (N)!，TO MR 

ELSE 

? 

ACCEPT “您 希望 再 作 一 次 逻辑 “与 ”检索 吗 ?请 键入 一 个 
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检索 词 或 (N)!” TO MR 
ENDIF 

IF MR <<>“N， 

FIND &MR 

IF KEY 一 MR. 

和 

SET PRINT ON 

IF T 王 1 

? “po 非 ?(( 必 MR >， 


? 与 (让 MR7)， 

ENDIEF 

? 

SET PRINT OFF 

IF M4>0 

STORE MER1 MNUMBER1 

STOER MER2 MNUMBER2 

STORE MER3 MNUMBER3 

STORE MER4 MNUMBER14 

ENDIEF 

STORE MR 一 “1 TO MR0 

STORE 一 1 TO M7 

STORE 0 TO M14 

STORE “ ”TO MER1,MER2 ,MER3， 

MER4 

DO WHILE M7 王 一 1 .OR. TRIM (KEY) 
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一 MRO0 

DO XXJSAND0 

DO XXJSFMR0 

ENDDO 

SET PRINT ON 

? 

IJF 工 一 | 

? ′ 逻辑 “ 非 ?数量 ;”,MR14 
ELSE 

? “ 逻辑 “与 ?数量 ;,M4 
ENDIF 

? 

?“ 信息 地 址 :” 

? 

? MER1,MER2 ,MER3 ,MER14 
? 

SET PRINT OFEF 

IF M4>> 0 

?“ 您 要 打印 信息 吗 ?请 键入 (Y)? 或 (N)1 
WAIT TO MB6 

IF M6 一 “Y， 

DO XXXJSABSC 

ENDIEF 

ENDIF 

ELSE, 
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? ' 抱 赤 ! 这 里 不 用 ((&MRy? >， 
? 
ENDIEF 
ENDIF 
ENDDO 
STORE “ ，TO M6 
ELSE 
? 
? “抱歉 ! 这 里 不 用 ((&MR >， 
? 
STORE 人 NO WORD，” TO M6 
ENDIF 
ENDDO 
CASE CHOICE 一 “4? 
SET PRINT ON 
? “您 选择 的 是 ,只 检索 信息 地 址 :， 
SET PRINT OFF 
? 
STORE 人 NO WORD?” TO M6 
DO WHILE M6 王 人 NO WORD， 
ACCEPT “请 键入 一 个 检索 词 ” TO MR0 
FIND &MR0 
? 
IF KEY 王 MR0 
DO XXJSCONT 
STORE “ ，TO M6 
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ELSE 

? 

?“ 抱 ! 这 里 不 用 ((MR07 >， 
? 

ENDIF 

ENDDO 

ENDCASE 

ERASE 

? 

?“* x < 本 检索 过 程 结 束 * * #* 
? 

DO WHILE MO0<80 

STORE M0 十 1 TO M0 
ENDDO 

ENDDO 

RETURN 


* 程序 名 ;XXJSAND0. CMD 

STORE 1 TO M2 

DO WHILE M2<5 

DO CASE 

CASE M2=1 

STORE MNUMBER1 TO MNUMBER 

CASE M2 一 2 

STORE MNUMBER2 TO MNUMBER 
。146 。 


CASE M2 一 3 

STORE MNUMBER3 TO MNUMBER 
OTHERWISE 

STORE MNUMBER4 TO MNUMBER 
ENDCASE 

DO XXJSAND1 

STORE M2 十 1 TO M2 

ENDDO 

SET PRINT ON 

IF CHOICE<< > 2， .AND. CHOICE<< > 3， 
? 

? ′ 逻辑 “与 ?数量 :”,M4 

? 

? “ 信息 地 址 :” 

? 

? MER1 

? MER2 

? MER3 

? MER4 

? 6 》 

ENDIF 

SET PFINT OFF 

RETURN 


x 程序 名 :XXJSAND1. CMD 
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STORE 1 TO M0 
DO WHILE M0>0 
STORE @(',， ,MNUMBER) TO M0 
IF M0>0 
STORE $ (MNUMBER ，1,M0) TO MI1 
STORE $ (MNUMBER ,M0 十 1,M3) 
TO MNUMBER 
STORE @ (M1,NUMBER1) 十 @ (M1， 
NUMBER2) TO M5 
STORE @ (ML1,NUMBER3) 十 @ (M1， 
NUMBER4) 十 M5 TO M5 
IF M5> 0.AND.T=0 
STORE M4 十 1 TO M14 
DO CASE 
CASE M2 王 1. AND.LEN (MER1 一 M1) <M3 一 1 
STORE MER1 一 Ml TO MER1 
CASE M2 一 2. AND.LEN (MER2 一 M1) <M3 一 1 
STORE MER2 一 M1 TO MER2 
CASE M2 王 3. AND.LEN (MER3 一 M1) <M3 一 1 
STORE MER3 一 M1 TO MER2 
OTHERWTISE 
IF LEN (MER4 一 Ml1) <M3 一 1 
STORE MER14 一 M1 TO MER41 
ENDIF 
ENDCASE 
ELSE 
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IF M5 王 0.AND.T=1 
STORE M4 十 1 TO M1 
ENDIF 

DO CASE 


CASE M2 王 1. AND.LEN (MER1 一 Ml1) <M3 一 1 


STORE MER1 一 ML TO MER1 


CASE M2 一 2. AND.LEN (MER2 一 Ml) <M3 一 1 


STORE MER2 一 M1 TO MER2 


CASE M2 王 3. AND.LEN (MER3 一 M1) <M3 一 1 


STORE MER3 一 M1 TO MER3 
OTHERWISE 

IF LEN (MER4 一 M1) <M3 一 1 
STORE MER4 一 ML TO MER4 
ENDIF 

ENDCASE 

ENDIF 

ENDIF 

ENDIF 

ENDDO 

RETURN 


x 程序 名 :XXJSABSC. CMD 
STORE 1 TO M2 

SET PRINT ON 

IF CHOICE 一 六 “0， 
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? ”′ 信息 名 及 文摘 等 :” 

? 

ENDIF 

SET PRINT OFF 
USE &FN2 

USE 愉 FN2 INDEX 区 FN14 

DO WHILE M2 一 5 

DO CASE 

CASE M2 一 1 

STORE MER1 TO MNUMBER 

CASE M2 一 2 

STORE MER2 TO MNUMBER 

CASE M2 一 3 

STORE MER3 TO MNUMBER. 
OTHERWISE 

STORE MER4 TO MNUMBER 
ENDCASE 

STORE 1 TO M0 

DO WHILE M0>0 

STORE . @(',，,MNUMBER) TO M0 
IF M0>0 

STORE $ (MNUMBER ,1,M0 一 1) TO MI1 
STORE $ (MNUMBER ,M0 十 1,M3) TO MNUMBER 
FIND &MI 

SET PRINT ON 
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x INFORNMBER , INFORNAME ,作者 ,出 版 社 , 时 间 , 单 
价 

DISP OFF 

SET PRINT OFF 

ENDIF 

ENDDO 

STORE M2 十 1 TO M2 
ENDDO 

USE &FN1 

USE KEFN1 INDEX 以 FN3 
RETURN 


x 程序 名 :;XXJSCONT. CMD 
STORE 0 TO M1 
SET PRINT ON 
? 
?“((&MR0) 信息 地 址 :， 
? 
STORE MR0 一 “1 TO MRI0 
STORE 一 1 TO M7 
DO WHILE M7= 一 1.0R.TRIM (KEY) 一 MR0 
STORE 1 TO M2 
DO WHILE M2 <5 
DO XXJSCASE 
STORE 1 TO M0 
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DO WHILE M0>0 

STORE @('“，,MNUMBER) TO M0 
IF M0>0 

STORE @ (MNUMBER ,M0 十 1,M3) 
TO MNUMBER 

STORE M4 十 1 TO M14 


ENDIEF 

ENDDO 

STORE M2 十 1 TO M2 
ENDDO 

STORE “ ，TO MNUMBER 
SET PRINT ON 

DISP OFF 

DO XXJSFMR0 
ENDDO 

? 

?“ 信息 总 数 :”,M4 


SET PRINT OFF 
RETURN 


x 程序 名 :XXJSINIT. CMD 
ACCEPT “设置 口令 吗 ? 键 入 Y 或 N' TO LOCK 
IF LOCK 一 “Y， 
ACCEPT “键入 口令 TO LOCK 
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ENDIF 
SAVE TO XXJSMEMO. MEM 
RETURN 


*x 程序 名 ;XXJSCASE. CMD 

DO CASE 

CASE M2 一 1 

STORE NUMBER1 TO MNUMBER 
CASE M2 一 2 

STORE NUMBER2 TO MNUMBER 
CASE M2 一 3 

STORE NUMBER3 TO MNUMBER 
OTHERWISE 

STORE NUMBER4 TO MNUMBER 
ENDCASE 

RETURN 


x 程序 名 :XXJSFMR0. CMD 

STORE M7 十 1 TO M7 

IF M7<10 

STORE $ (MR0,1,LEN(MR0) 一 1) 
一 SRT (M7,1) TO MR0 

ELSE 

IF M7==10 
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STORE $ (MR0,1,LEN (MR0) 一 1) 
一 SRT (M7 ,2) TO MR0 

ELSE 

STORE $ (MR0,1,LEN (MR0) 一 2) 
一 SRT (M7 ,2) TO MR0 

ENDIF 

ENDIF 

FIND &MR0 

RETURN 


x 程序 名 ;XXJSNMER. CMD 
STORE NUMBER1 TO MER1 
STORE NUMBER2 TO MER2 
STORE NUMBER3 TO MER3 
STORE NUMBER4 TO MER4 
RETURN 


x 程序 名 :XXJSNTOM. CMD 
STORE NUMBER1 TO MNUMBER1 
STORE NUMBER2 TO MNUMBER2 
STORE NUMBER3 TO MNUMBER3 
STORE NUMBER4 TO MNUMBER 4 
RETURN 
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第 三 章 “” 计 算 机 排 课 系 统 


排 课 是 学 校 教务 工作 中 十 分 重要 而 又 繁杂 的 一 项 任务 。 
它 涉及 面 广 . 因 素 多 .工作 量 大 ,用 人 工 排 课 往往 需要 数 天 才 
能 完成 。 费 时 .费力 , 且 易 出 错 。 

笔者 在 中 华 学 习 机 上 开发 了 计算 机 排 课 系统 ,使 用 它 , 只 
需 数 小 时 就 可 将 全 校 课程 排 完 。 大 大 节约 了 人 力 。 本 系统 除 
将 课程 按 排 课 规律 科学 安排 外 , 特 设置 了 人 工 干预 功能 ,可 以 
随时 调整 课表 。 这 就 使 它 用 起 来 更 加 方便 ,灵活 , 深 受 教务 工 
作者 的 好 评 。 

系统 共 分 6 个 模块 ,采用 覆盖 法 轮流 占用 内 存 以 解决 中 
华 学 习 机 内 存 较 小 的 矛盾 。 

一 \ 流 程 图 

计算 机 排 课 系 统 流程 图 如 图 3. 1 所 示 。 

二 、 功 能 简介 

系统 具有 以 下 功能 : 

1. 可 自由 选择 科目 。 

2. 每 一 门 课 可 任意 确定 任教 人 数 。 

3. 每 一 位 教师 任课 班 数 及 班次 可 任意 确定 。 

4. 每 门 课 及 每 位 教师 可 以 满足 特殊 要 求 ( 如 :不 能 排 哪 
几 节 ) 。 

5. 可 以 跨 年 级 排 课 。 

6. 可 以 对 课程 是 否 连 堂 进行 选 择 。 

7. 对 班主 任教 研 组 长 排 课 可 以 避 开 开会 时 间 。 
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课 ) 。 


调 
课 
与 
查 
询 


口 
关 


图 3.1 计算 机 排 课 系统 流程 图 
8. 对 各 科教 研 会 作 统 一 安排 (开会 时 ,本 科教 师 不 排 
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9. 可 以 安排 不 能 同一 天 上 的 课程 。 
10. 对 有 课外 活动 的 班级 可 以 作 统 一 安排 。 
11. 输入 教师 代号 、 姓 名 后 ,进行 存储 ,可 进行 增删 . 改 。 
12. 可 以 按 用 户 要 求 进行 人 工 干 预 ,手工 调整 课表 。 
13. 可 以 指定 某 科 排 在 某 一 节 。 
14. 可 以 复制 任意 课表 。 
15. 打印 班 课表 及 教师 课表 。 
16. 查询 已 排 好 的 课表 。 
17. 存储 排 好 的 课表 ,可 以 随时 调 出 修改 ,打印 。 
\ 系 统 使 用 说 明 
(一 ) 启 动 排 课 系 统 
(1) 将 排 课 系统 盘 插 入 驱动 器 。 
(2) 开 启 主机 电源 。 
(3) 出 现 主 菜单 
1 一 一 排 课 
2 一 一 调 课 与 查询 
3 一 一 显示 打印 课表 
4 一 一 输入 教师 姓名 
5 一 一 复制 课表 
6 结 
此 时 ,可 选择 任何 一 项 进行 排 课 的 各 种 操作 。 在 每 项 操作 
中 , 均 有 详尽 的 屏幕 提示 。 
(二 ) 排 课 步 又 
(1) 将 各 年 级 教师 按 年 级 编号 。 
(2) 准 备 好 以 下 数据 ， 
全 校 性 :教研 组 长 会 和 班主 任 会 是 周 几 、 哪 几 节 。 
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届 


各 年 级 : 班 数 、. 班 次 , 科 数 .科目 。 

各 科 : 教 研 活动 是 周 几 、 哪 几 节 。 每 周 每 班 几 节 课 ,任课 教 
师 数 。 

各 位 教师 :代号 . 教 几 班 .班次 ,是否 为 教研 组 长 .班主任 、 
是 否 路 年级 ,有 何 特殊 要 求 。 

(3) 从 主 菜 单 进 入 4 一 一 输入 教师 姓名 

1. 输入 年 级 名 (GX X 或 CX X) 表 示 高 XXX 和 初 X X， 
如 G94,C93。 

2. 输入 各 位 教师 代号 ,姓名 。 

(4) 从 主 菜单 进入 1 一 一 排 课 

按 屏幕 提示 将 已 准备 好 的 数据 输入 , 输 完 每 科 信 息 后 , 计 
算 机 排出 该 科 课 表 , 屏 幕 提 示 :X X 课 已 排 好 ,是 否 查询 (Y/ 
N) 此 时 , 若 键入 "*Y”, 则 显示 已 排 好 的 课表 , 若 不 满意 ,可 进行 
人 工 修改 ( 将 课 两 两 对 换 ) 调 整 好 后 ,继续 排 下 一 科 , 直 至 全 部 
课 排 完 。 

(5) 从 主 菜单 进入 2 一 一 调 课 与 查询 

输入 年 级 名 、 班 次 .或 教师 号 可 对 各 班 .各 教师 的 课 进 行 
查询 ,及 对 年 级 各 班 课 表 进 行人 工 调 整 ,直至 满意 为 止 。 

输入 年 级 名 、 班 次 .或 教师 号 可 显示 或 打印 出 全 部 或 部 分 

三) 屏幕 提 示 说 明 

〈1) 屏 幕 提 问 回答 “ 是 ?或 “ 否 ? 两 种 答案 时 ,有 两 种 方式 ; 

1. (Y/N) 一 一 是 输 “Y”、 否 输 “N”。 

2. (1/0)- 一 是 输 “1”、 否 输 “0"。 

(2) 请 用 户 输入 光 哪 几 节 ?或 “ 哪 几 班 ? 时 ,应 连续 输入 后 
回 车 。 
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例 : 哪 几 班 ? 12345 回 车 。 

(四 ) 注 意 事项 

(1) 每 次 只 能 排 一 个 年 级 的 课 ,高 中 文 . 理 科 应 当 用 两 张 
数据 盘 分 别 存放 。 

(2) 排 课 选 择 科 目 时 ,应 当 将 难 排 的 课 ( 如 一 位 教师 任教 
班次 多 ,或 每 周 节 数 多 的 课 ) 选 在 前 面 , 先 排 。 

附 : 科 目 编号 :1 一 一 体育 ,3 一 一 音乐 ,4 一 一 美术 ,5 一 一 
语文 ,6 一 一 数学 ,7 一 一 外 语 ,8- 一 物理 ,9 一 一 化 学 ,10 一 一 
生物 , 11 一 一 地 理 ,12 一 一 历史 ,13 一 一 英语 口语 ,14 一 一 政 
治 ,15 一 一 计算 机 。 

(3) 最 好 每 科 课 排 好 后 ,人 工 调整 一 遍 , 再 排 下 一 科 , 以 免 
后 面 的 课 不 好 排 。 

(4) 若 计算 机 一 次 排 不 出 ,或 排 好 的 课 很 不 满意 ,无 法 调 
整 ,可 以 重新 运行 。 再 排 一 次 。 

(5) 本 系统 适用 于 中 华 学 习 机 。 

四 、 程 序 清单 

说 明 :程序 应 按 模块 输入 计算 机 ,并 以 相应 的 文件 名 存在 
同一 磁盘 上 。 

1. 主 控 模 块 (CHELLO) 

] REM HELLO 

5 PRINT CHR$ (4);"PR 夫 3" :CALL 43089 

10 HOME 

15 HGR2:HCOLOR=7 

16 PRINT TAB( 8);: FOR I 一 1TO20: PRINT "xx1il 

NEXT : PRINT 
20 PRINT TAB( 8) xy TAB(27)3”x": PRINT TAB(8 
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) 和 2xw: TAB(C27); 和 7 闪 7 

30 PRINT TAB( 8); 

50 PRINT "和 计算 机 排 课 系 统 x” 

60 ”PRINT TAB( 8)j xi TAB( 27)3”x7: PRINT TAB( 
8);xw3i TAB(C27);7x7 

70 ”PRINT TAB( 8);: FOR IT 一 1TO 20: PRINT "xi;; 
NEXT : PRINT 

105 FORI 一 1TO1000: NEXTI 

110 HOME 

120 PRINT TAB( 10) ;" 目 录 " 

130 PRINT TAB( 4); 

140 FORI 王 1TO18: PRINTx7;3: NEXTI 

145 PRINT 

150 PRINT TAB( 5);"1 一 一 排 课 ” 


160 PRINT TAB( 5);"2 一 一 调 课 与 查询 " 
170 PRINT TAB( 5);"3 一 一 显示 打印 课表 ” 
185 PRINT TAB( 5);"4 一 一 输入 教师 姓名 " 
187 PRINT TAB( 5);"5 复制 课表 "” 

190 PRINT TAB( 5);"6 结束 " 


210 PRINT TAB( 4); 
220 FORI 一 1TO18: PRINT "xi;:; NEXTI 
225 PRINT 
230 PRINT TAB( 5); 请 选择 :”": INPUT A 
255 D$ = CHRS$ (4) 
260 ON A GOTO 270,280,290,305,308,310 
265 GOTO 230 
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270 PRINT D$;"RUN PK7 
280 PRINT D$;i"RUN TK7" 
290 PRINT D$;i7"RUN DY 
305 PRINT D$;"RUN SJ/ 
308 PRINT DJ$3;i7RUN FZ7 
310 END 


oo ~ cp Cn 


2. 排 课 模 块 (PK) 

REM PK 
LOMEM:6 * 16 * 16 x* 16 
D 和 9 一 CHR 和 $ (4):0$ 一 "OPEN" :W 和 9 一 "WRITE" ;R 
$ 一 "READ" :C$ 一 "CLOSE 
AA 和 $ 一 "一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


$(D :NEXTI 
DIM CM$ (15): FOR I = 1 TO 15:， READ CM $ (IT); 
NEXT II 
DIM BK% (8,6,8,2) 
DIM JK%(30,6,8),JS(C30) 
DIM JH(30) 
DIM SB(30) ,NT(15) 
DIM KM$ (15) ,HB$(30) 
DIM F1$ (30) 


DATA 一 ,二 ,三 ,四 ,五 ,六 , 体 , 银 , 音 , 美 , 语 , 数 , 外 , 物 ， 
化 , 生 , 地 ,有 历 , 口 , 政 , 计 
HOME 
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25 
30 


40 
45 
50 
60 
65 
70 
80 
90 
100 
105 
110 
115 
120 
150 


155 
160 
300 


PRINT : PRINT 

PRINT TAB( 8);: FOR I 一 1TO 16:， PRINT ”x wii 
NEXT 
PRINT : PRINT 
PRINT TAB( 8); 
PRINT " 排 “ 课 ? 
PRINT :PRINT 
PRINT TAB( 8); 
FOR I 一 1 TO 16; PRINT“*“;: NEXT 
FOR I 一 1 TO 1500;， NEXT 
HOME 

PRINT "请 输入 :" 

A$ 一 “会 是 周 几 ” 

PRINT "教研 组 长 "; A$;: INPUT JZ 

IF JZ >= 7THEN 110 

B$ 一" 哪 几 节 ": PRINT B$;: INPUT JJVY 

PRINT "班主 任 ";A$ ;: INPUT RZ: IF RZ 王 0 THEN 
170 

IF RZ >>= 7 THEN 150 

PRINT B$ ;: INPUT RJV 

KM$ (1) 一 "体育 " :KM$ (2) 一" 银 炼 “:KMS$ (3) = 
"音乐 " :KM $ (4) 一 “美术 " :KM $ (5) 一 "语文 " :KM 
$ (6) 王 “数学 " 


310KM$ (7) 天 "外语 ”: KM (8) 王 "物理 ”: KM (9) 一" 化 


学 ":KMS$ (10) 一“ 生物 ":KMJ$ (11) 王 "地 理 ” :KM 
$(12) 2 "有 历史" 
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320 


500 
505 
510 
520 
530 
535 
537 


540 
550 
555 
556 
560 
570 
580 
590 
592 
5914 
598 
600 
610 
620 


6030 


KM$ (13) 一 “英语 口语 :KM$ (14) 一 "政治 " :KM 
$(15)= "计算 机 ” 

HOME 

NR 一 0 

PRINT "请 输入 :” 

INPUT "年 级 名 (高 中 :Gx* * ,初中 :Cx x* )"3F$ 
PRINT " 班 数 "; ;INPUT BS 

INPUT " 哪 几 班 ?";SS$ 

FOR W = 1TO BS:SS(W) = VAL (MID$(SSs$ ,WwW， 
1)): NEXT W 

PRINT " 科 数 :”;: INPUT KS: DIM KK(CKS) ， HOME 
PRINT "请 选择 科目 :” 

GOSUB 560 

GOTO 600 

PRINT "1 一 一 体育 “2 一 一 锻炼 “3 一 一 音乐 " 

PRINI "4 一 一 美术 ”5 一 一 语文 ”6 一 一 数学 

PRINT ”7 一 一 外 语 “8 一 一 物理 ”9 一 一 化 学 " 
PRINT ”10 一 一 生物 《11 一 一 地 理 12 一 一 历史 " 
PRINT "13 一 一 英语 口语 14 一 一 政治 ” 

PRINT "15 一 一 计算 机 ” 

RETURN 

PRINT "请 输入 :” 

FOR W = 1 TO KS 

PRINT Wi 
(KK(CW ) ) 
NEXT W 


"ji INPUT KK(W):， PRINT KM 9$ 
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635 INPUT "正确 吗 ? (Y/N)";Z$ 
636 IFZ9 = "N" THEN 550 
640 _ INPUT "有 无 课外 活动 (I/0)”;X: IF X = 0THEN 700 
645 IF X <> 1THEN 640 
650 INPUT " 周 几 ”;WZ 
660 PRINT B$ ; :INPUT WJ$ 
670 FOR X1=1 TO BS 
672 FOR X2 = 1TO LEN (WJy$) 
674 BK%(SS(CX1),WZ,X2,1) 一 400 
676 NEXT X2,X1 
700 FOR II = 1 TO KS 
710 PRINT "xx X xsKMJ 和 $$CKK(CII) 73 关 关 关 了 7 
712 INPUT "是 否 指定 (Y/N)?";XS$ 
714 IFEX$ 一 "Y" THEN GOSUB 2500;, GOTO 1291 
720 INPUT "每 周 每 班 几 节 课 " ;ZJ 
750 _ INPUT "教研 活动 是 周 几 " ;NZ 
760 PRINT B$ ;;INPUT NJ 
770 工 王 LEN (NIJ$4): FOR W=1TOL:NJ(OW)= VAL 
MID$ (CNJ$q ,WwW,1)):NEXT W 
820 INPUT "是否 连 堂 (1/0)”;NTCOKK(I TI) ) 
830 IF NTCOKK(GILID) = 1THEN GOSUB 5000 
840 INPUT "课时 有 无 限制 (1/0)”;XZ 
850 IF XZ = 0 THEN 3920 
855 IF XZ () 1 THEN 840 
860 INPUT " 哪 几 天 不 能 排 ( 不 选 则 输入 0)”;ZX $ 
870 IF ZX 和 $ 一 "0 THEN 890 
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880 


890 
900 
910 


920 
930 
940 
950 
960 
970 
980 
990 
995 
1000 
1015 
1020 
1030 
1040 
1042 
10414 
1045 
1050 
1060 
1061 


FOR WwW = 1TOLEN (ZX 和 9 ):ZXCW) = VAL ( MID 
$(CXZ$,w,1)):NEXT W 
INPUT " 哪 几 节 不 能 排 (不 选 则 输入 0)”;JX$ 
IF JX$ 一"0" THEN 920 
FOR W 王 1TOLEN (JX$ ): JXCW) = VAL (MIDVY 
(JX$ ,WwW,1)):NEXT W 
INPUT "每 位 教师 每 天 最 多 排 几 节 "” :MIJ 
INPUT "有 无 场地 限制 (1/0)”;M 
IF M 一 0 THEN 970 
IF M < > 1 THEN 930 
INPUT " 同 节 最 多 几 个 班 ";MB 
INPUT "有 无 不 能 同一 天 上 的 课 (1/0)” ;KM 
IF KM = 0 THEN 1040 
IF KM <<>> 1THEN 970 
INPUT "不 能 同一 天 上 的 课 有 几 科 ”;MK 
PRINT “与 哪些 课 不 能 同 天 ” 
GOSUB 560 
PRINT "请 选择 科 号 " 
FOR W = 1 TO MK: INPUT KM(W): NEXT W 
INPUT "任课 教师 数 :”";RS$ 
INPUT "正确 吗 ? (Y/N)7";X$ 
IF X$ 一 "N" THEN 710 
IFX$ <> "Y" THEN 1042 
FOR RR 一 1 TO RS 
PRINT "第 " ;RR;" 位 教师 代号 是 :"; : INPUT JSCRR) 
Bl = JS(CRR):B2= LEN (NJ$ ): B3 王 100:;B4 王 NZ: 
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1062 
1063 
10614 


1065 
1070 
1080 


1090 
1100 


1110 


1120 


1140 
1150 
1160 
1170 
1180 
1190 
1192 


B5$ 一 NJ$ :GOSUB 1400 

INPUT " 教 几 班 *; SB(JSCRR )) 

INPUT " 哪 几 班 ";HB$ (JSCRR)) 

FOR W = 1 TO LEN (HB$(JSCRR))):HB(RR,W) 
王 VAL (MIDV$(HB$(CSCORR)) ,WwW,1)):NEXT W 
NR 王 NR 十 1;JHCNR) = JSCRR) 

INPUT "是 教研 组 长 吗 (1/0)”";B 

IFB = 1THEN B1= SB(JS(CRR)):B2 一 LEN(JJV$ )， 
B3-=300;B4 = JZ;B5$ =JJV$ :GOSUB 1400 
INPUT "是 班主 任 吗 (1/0)”;B 

IFB 王 1THENB 一 0:Bl 一 SB(JSCRR)):B2 一 LEN 
(RJ$ ):B3 一 200:B4 一 RZ:B5$ 一 RJJ$ :GOSUB 
1400 

IF XZ = 1 AND ZX$ 一 > ”0" THEN FOR W1 = 1 
TO LEN ( ZX 和 $ ): FOR W2= 1 TO 6:JK%(JSCRR)， 
ZX(W1),W2) = 500: NEXT W2,W1 

IF XZ = 1 AND JX$ 二 > "0"” THEN FOR W1 =1 
TO 6: FOR WwW2 = 1TOLEN (JX$):JK%(JSCRR)， 
W1,JXCW2)) = 500; NEXT W2,W1 

INPUT "是 否 跨 年 级 (1/0)”;KJ(CCRR)) 

IF KJCCRR)) 王 0THEN 1190 

IF KJCCORR)) < 之 1THEN 1140 

INPUT "还 教 哪个 年 级 ";FF $ (JSCRR)) 

GOSUB 3000 

INPUT "正确 吗 ? (Y/N)";X$ 

IFX$ = "N" THEN 1060 
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IFX$ > "Y" THEN 1190 
NEXT RR 
PRINT "开始 排 ”*;KMS$ (KK(I IT) ) 九 课 ” 
FOR RR 一 1 TO RS 
一 0 
CP 一 0:YY=0 
PRINT " 排 第 ";RR 罗 位 教师 的 课 " 
FOR XX 二 1 TO SB(JSCRR)) 
AM 一 0:PM 一 0 
FOR FF = 1 TO ZJ 
IFNT (KK(IIT)) = 1THEN GOSUB 5000; GOTO 1270 


-GOSUB 4000 


IF CP = 1ANDP <5THEN PRINT 7" 重 排 ";P = P 十 
1; GOTO 1215 
IF CP = 1 AND P> 4THEN P = 0:GOTO 3500 
GOSUB 1500 
NEXT FF:YY = 0 
NEXT XX 
NEXT RR 
PRINT KM 下 (KK(I I));" 课 已 排 好 ” 
INPUT “是否 查 询 ? (Y/N)7";X$ 
IF X$ 一 "Y” THEN GOSUB 2100 
IFX$ <<> “NTHEN 1292 
NEXT II 
PRINT F$ ;级 课表 已 排 好 ” 
PRINT "请 等 待 " 
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1320 GOSUB 1600: REM 存 
1325 _ INPUT " 揪 入 系统 盘 后 回 车 ";X$ 
1330 ”PRINT CHR $ (4);"RUN HELLOY 
1400 Bl1 = JSCRR) 
1410 FOR W = 1TOB2 
1415 B5(W) = VAL (MID$ (B5$ ,w,1)) 
1420 下 中 (B1,B4,B5(W)) = B3 
1430 NEXT W 
1450 RETURN 
1500 REM 课表 
1510 BK% (HB(RR,XX),YY,ZZ,1) = KKCIT) 
1520 BK% (HB(RR ,XX),YY,ZZ,2) 一 JSCRR) 
1530 下 %(JSCRR),YY,ZZ) 一 HB(RR,XX) 
1540 RETURN 
1600 REM 课表 存盘 
1602 ”ONERR GOTO 2060 
1605 REM 存 年 级 文件 
1606 PRINT "请 插入 数据 盘 后 回 车 " 
1607 INPUT X$ 
1610 PRINTD$;09;F$ 
1620 PRINTDS;iwW$;F$ 
1630 PRINT BS 
1635 FOR B1 =- 1 TO BS, PRINT SS(B1); NEXT Bl 
1640 PRINT KS 
1640 FOR B1 = 1 TO KS 
1660 “PRINT KK(B1) 
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1670 NEXT B1 
1685 PRINT NR 
1687 FOR WwW = 1 TO NR: PRINT JHCW):; NEXT W 
1690 PRINT DC$;FV 
1700 REM 存 班 课表 
1710 FOR B1 = 1 TO BS 
1715 R=0 
1720 FI$ = F$ 十 "一 "十 STR$(SS(B1)) 十 "一 BANY 
1730 PRINTD$;0$;F1$j,L8， 
1740 PRINT DY 
1750 FOR B2 = 1TO6 
1760 FOR B3 = 1ToO8 
1770 R =R 十 1 
1780 PRINTD$;WS$;F1$ ;i，",R";R 
1790 FOR B4 一 1TO 2 
1800 PRINT BK%(SS(B1),B2,B3,B4) 
1810 NEXT B4,B3,B2 
1815 PRINT DY$iCVW 
1816 NEXT Bl 
1830 PRINT DY$ 
1900 REM 存 教师 课表 
1910 FOR Bl = 1 TONR 
1920 R=0 
1930 F2$ = F$ 十 "一 "十 STR$ (JH(B1)) 十 "一 JSy 
1940 PRINTD$;0$ ;F28 
1950 PRINT DV$ 
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1960 FOR B2 = 1TO6 

1970 FORB3 一 1TO8 

1990 PRINTD$iw$;F284 

2000 IF 芒 % (JH(GB1),B2,B3) 王 0 THEN 2020 

2010 PRINT B2 

2012，PRINT B3 

2013 ”PRINT JK%(JH(B1),B2,B3) 

2020 NEXT B3,B2 

2025 PRINT 一 2 

2026 ”PRINT 一 2 

2027 PRINT 一 2 

2030 PRINTD94iCV$ 

2031 PRINT DY 

2035 NEXT B1 

2040 PRINT DY$ 

2050 RETURN 

2060 PRINT "磁盘 有 损伤 几 

2070 PRINT ” 换 盘 后 按 回 车 键 " 

2080 INPUTXV$ 

2090 RESUME 

2100 REM 查询 修改 

2110 FOR CX 一 1 TO BS 

2115 PRINT TAB ( 6);F$ ;级 ";SS(CCX);j 班 课表 " 

2120 Al$= LEFT$CAA 和 $ ,22) 

2130 PRINT Al19 

2140 PRINT "1! 1!1! 213!14!5!16!7! 8 
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2150 
2160 
2170 
21714 


2175 


2180 


2181 
2185 


2186 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2300 
2310 
2320 


FOR ZC = 1TO6 

PRINT "1!"B$C(ZC) ;1 

FOR JC 王 1TO8 

IF BK%(SS(CCX),ZC,JC,1) 一 400 THEN PRINT " 

"3:GOTO 2200 

IF BK%(SS (CCX),ZC,JC, 1)>> 50 THEN BK%(SSs 

(CX),ZC,JC,1) = BK%(SS(CCX),ZC,JC,1) 一 50， 

GOTO 2185 

IF CM $ (BK%(SS (CCX)，ZC,JC， 1)) 一 "”THEN 

PRINT " 自 "; ， GOTO 2200 

GOTO 2190 

PRINT CMV$ (BK% (SS(CCX),ZC,JC,1));:BK%(SS 

(CX),ZC,JC,1) 王 BK(SS(CCX),ZC,JC,1) 十 50 

GOTO 2200 

PRINT CM$ (BK% (SSCCX),ZC,JC,1)); 

PRINT 17; 

NEXT JC:PRINT : NEXT ZC 

PRINT Al 有 $ 

INPUT "修改 吗 ? (Y/N)"3;XS$ 

IFX$ 一"Y" THEN GOSUB 2300: GOTO 2115 

IFX 和 9 <> "N" THEN 2230 

NEXT CX 

RETURN 

REM 修改 

PRINT " 哪 几 节 对 调 ?” 

PRINT (1):" :INPUT " 周 几 ?"; Z1:; INPUT " 哪 节 ?"; 
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2325 


2326 
2327 


2330 


2335 


2336 
2337 


2340 
2350 
2360 
2370 
2380 


2390 
2400 
2410 
2420 


2425 
2430 


J1 
IF BK% (SS(CCX),Z1,Jl1,1)> 50 THEN PRINT "本 节 
是 指定 课 , 要 调 吗 ? (Y/N)"; : GOTO 2327 

GOTO 2330 

INPUT X$:IFX$ = "N" ORX$<> "Y" THEN 
2320 

PRINT "(2)": INPUT " 周 几 ?";Z2: INPUT ” 哪 节 ?7"; 
J2 

IF BK% (SS(CCX),Z2,J2,1)>> 50 THEN PRINT "本 节 
是 指定 课 , 要 调 吗 ? (Y/N)";: GOTO 2337 

GOTO 2340 

INPUT X$; IFX$ 一 "N" OR X"$ 一 > "Y" THEN 
2330 


H2 王 BK%(SSCCX),Z2,J2,2) 


IF 区 %(H2,Z1,J1) = 0THEN 2380 

PRINT H2;" 号 教师 重 堂 !"” : RETURN 

IF 玉 %(H1,Z2,J2)<<>> 0 THEN PRINT H1;" 号 教师 
重 堂 !": RETURN 

T 一 BK%(SSCCX),Z1,Jl1,1) 
BK%(SS(CX),Z1,Jl1,1) = BK%(SSCCX),Z2,J2，,1) 
BK% (SS(CX) ,Z2,J2,1) 一 工 
BK%(SS(CCX),Z1,Jl,2) 一 H2:BK%(SS(CX),Z2， 
J2,2) = H1 

IF H1 = 0 THEN 2435 

JK% (Hl,Z2,J2) 一 SSCCX): 卫 %(H1,Z1,J1) 一 0 
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2435 IF H2 一 0 THEN 2450 

2440 ”以 %(H2,Z1,J1) 天 SS(CCX): J%(H2,Z2,J2) 一 0 

2450 RETURN 

'2500 REM 指定 课 

2510 INPUT "每 班 几 节 课 ?";SK 

2511 INPUT " 几 位 教师 ?";SH 

2512 FOR WwW= 1 TO SH 

2513，PRINT "第 ";Wj" 位 教师 代号 是 ;"; : INPUT H5 

2514 NR = NR 十 1:JHCONR) = H5: NEXT W: INPUT " 正 
确 吗 ? (Y/N)";X 和 $ :IF X$ <>>，"Y" THEN 2510 

2515 FOR Bl =- 1 TO BS 

2516 ”PRINT SS(B1); " 班 :" 

2518 INPUT "任课 教师 代号 :";HH 

2520 FOR W = 1 TO SK 

2530 PRINT "第 " ;Wi 节 :" 

2540 _ INPUT " 周 几 ?”" ;YY 

2550 INPUT " 哪 节 ?”;ZZ 

2552 INPUT "正确 吗 (Y/N)?";X$ 

2553 IFEX$ <> ”"Y" AND W = 1THEN 2516 

2554 IFX 和 4 <> "Y" AND W <> 1THEN 2530 

2555 IFX$ <> ，"Y" AND X$ 一 > "N" THEN 2552 

2556 IF BK%(SS(Bl1),YY,ZZ,T) > 0THEN PRINT " 重 
堂 ":， GOTO 2530 

2560 BK%(SS(Bl1),YY,ZZ,1) 一 KK(CII) 十 50 

2665 JK%(HH,YY,ZZ) = SS(B1) 

2570 NEXT W 
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2580 
2590 
3000 
3010 
3025 
3030 


3040 
3080 
3082 
3084 
3086 
3110 
3112 
3120 
3125 
3130 
3200 
3210 
3500 
3505 
3509 
3510 
3530 
3540 
3550 


NEXT B1 

RETURN 

REM 路 年 级 

ONERR GOTO 3200 

R 王 0 

F1$4 =FF$(JSCORR)) 十 "一 ”十 STRV$COSCRR)) 
十 "一 JS 

PRINT D$;09$ ;Fl19 

PRINTD$;R$;F19 


INPUT Bl1: IFBL 王 一 2THEN 3120 
INPUT B2 
INPUT JK% (JSCRR) ,Bl1,B2) 


了 革 %(JSCGRR),B1,B2) = 下 %(JSCRR),B1,B2) 十 20 
GOTO 3082 

PRINTD$iCcV$ 

PRINT DY 

RETURN 

PRINT "文件 未 建立 " 

RETURN 

REM 重 排 

YY =0 

GOSUB 7000 

CP 一 0:N1=0 

PRINT " 排 第 ";RR;" 位 教师 的 课 " 
FOR XX = 1 TO SB(JSCRR)) 
FOR FF = 1 TO ZJ 
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3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3635 
3636 
3640 
3650 
3800 
3802 
3810 
3820 
3825 
3830 


3840 
3845 
3846 
3850 
3860 


3865 


FOR YY = 1TO16 
FOR ZZ = 1 TO 6 
IF BK$ (HB(RR,XX),YY,ZZ,.1) < > 0THEN 3620 
IF JK%%(JSCRR) ,YY,ZZ) 一 > 0THEN 3620 
GOSUB 1500 
GOTO 3640 
NEXT ZZ 
NEXT YY 
PRINT " 排 不 下 ,请 调整 凡 
II=II 一 1:NR 一 NR 一 1;GOTO 1291 
NEXT FF 
GOTO 1280 
REM 换 课 
Z1 一 0:Z2 = 0 
FORY1 = 1TO6 
FOR Z3 王 1 TO 6 
PRINT " (23Y137 3Z3 和 7)7 
IF BK%f(HB(RR,XX),Yl1,Z3,1) = 0 THEN Z1 一 
Z3: GOTO 3850 
NEXT Z3,Y1 
PRINT " 排 不 下 " 
END 
W1=1 
IF 下 %(JSCRR)，Wl,Z1) = 0 THEN Y2 一 W1; 
GOTO 3870 
WwW1I=wWI 二 1:IFwWI<=6THEN 3860 
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3866 
3867 
3868 
3869 
3870 
3875 


3880 
3890 


3895 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3965 
3970 
3980 
4000 
4010 
4020 
4030 
4035 


GOTO 3868 

Z1 一 Z1 十 1:IFZL>>6THENZLI 一 Zl 一 6 
GOTO 3840 

GOTO 3850 

W 王 1 

IF BK% (HB(RR,XX),Y2, WwW,1) 王 KKCGI I) THEN 
3865 

WwW=W+1l:IFW<=6THEN 3875 

J2 一 BK% (HB(RR,XX),Y2,Z1,2) :K2 一 BK% (HB 
(RR,XX),Y2,Z1，,1) 

IF K2 > 50THEN 3865 

IF JK%(J2,Y1,Z1) < 二 > 0THEN 3865 

W 王 1 

IF BK% (HB(RR,XX),Yl,WwW,1) 王 K2THEN 3865 
W: 王 WwW 二 1:IFEW<<=6THEN 3910 

BK% (HB(RR ,XX),Y1,Z1,1) 一 K2 

BK% (HBCRR ,XX),Y1,Z1,2) 一 J2 

JK% (J2,Y1,Z1) 一 HB(RR,XX) 

二 % (J2,Y2.,Z1) 一 0 

YY 一 Y2:ZZ 一 Z1 

GOTO 3632 

REM 产生 课 

IFYY 一 0THEN 4050 

D1 = INT (6/ZJ) 

YY 一 YY 十 DI:N2 王 1 

IFYY >>6THENYY 一 YY 一 6 


| 
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4040 
4042 
4050 
4050 
4060 
4070 
4080 
4090 
4100 
4110 


41195 
4120 
4130 
4140 
5000 
5010 
5020 
5030 
5040 
5050 


5060 
5070 
5080 
5090 


ZZ 一 ZZ 十 DI:NI 一 1 

IFZZ > 6THEN ZZ 一 ZZ 一 6 

GOTO 4070 

YY 一 INT (RND(I)x*6 十 1):N2 一 1 

ZZ = 一 INT (RND (1) x*6 十 1):N1 = 1 

GOSUB 6000: REM 检查 条 件 

IF DD = 0THEN NI 一 0;N2 一 0O:RETURN 

ZZ 一 2ZZ 二 1I:NI 王 NI 十 1 

IF ZZ> 之 6 THEN ZZ 一 ZZ 一 6 

IF N1 > 6THEN YY 一 YY 十 1:N2 一 N2 十 1 

GOTO 4120 

GOTO 4070 

IFYY 6THENYY = YY 一 6 

IF N2 > 6 THEN GOSUB 7000:; RETURN 

GOTO 4070 

REM 排 连 堂 课 

YY =INTCRND (1) * 6 十 1):N2 一 1 

ZZ 一 INT CRND (1l) *5 二 1):NI 一 1 

IF ZZ 王 4THEN 5020 

GOSUB 6000: REM 检查 条 件 

IF DD = 0THEN ZZ = ZZ 十 1;GOSUB 6000: GOTO 

5200 

ZZ 一 2ZZ 十 1:NI 王 NI 十 1 

IF ZZ 王 4OR ZZ 一 6THEN 5060 

IF ZZ > 6THEN ZZ 一 ZZ 一 6 

IFNI> 6THENYY = YY 十 1:N1L=1:N2 =N2 十 
。 177 。 


5100 
5110 
5120 
5030 
5200 
5210 
5220 
6000 
6010 


6020 


6021 
6022 


60214 


6030 
6040 
6050 


6060 
6070 
6071 
6072 


1:GOTO 5110 

GOTO 5040 

IFYY 之 6THENYY =YY 一 6 

IF N2 >>6THEN GOSUB 7000: RETURN 

GOTO 5040 

GOSUB 1500 

2ZZ 一 ZZ 一 1: GOSUB 1500 

RETURN 

REM 检查 条 件 

IF BK% (HB(RR,XX),YY,ZZ,1) <> 0THEN DD 
一 1: RETURN 

IF JK%(JSCRR),， YY,XX) <> 0THEN DD = 1， 
RETURN 

IF SW 一 0THEN 6030 

IF ZZ<5THEN AM 王 AM 十 1:IFAM>> SWTHEN 
DD 天 1:AM 一 0: RETURN 

IF ZZ >> 4THEN PM 一 PM 十 1:IF PM> XW THEN 
DD 三 1:PM 王 0:RETURN 

XlL 一 0 

FORJI 王 1TO8 

IF 巧 %(JSCGRR) ,YY,JI) 一 KKCII) THEN X1 一 X1 
十 1 

NEXT J] 

IF Xl1 >= MJTHEN DD 三 1:RETURN 

GOTO 6080 

FORJL 王 1TO8 


| 
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6073 


60714 
6080 
6090 
6100 
6110 


6120 
6130 
6140 
6150 
6160 


6170 
6180 
6190 
7000 
7020 
7030 
7040 
7050 


7060 
7065 
7070 


IF BK%(HB(CRR,XX),YY,Jl,1) 一 KK(CII) THEN 
DD 一 1:RETURN 
NEXT J1 
IF KM < > 1THEN 6130 
FOR JI 三 1TO8 
FOR I2 三 1 TO 上 KL 
IF BK% (HB(RR,XX),YY,Jl,1) 王 KM(I2) THEN DD 
一 1:RETURN 
NEXT I2,J! 
IF M <<>1THEN 6190 
X1 王 0 
FOR S1 三 1 TO BS 
IF BK% (HB(RR,S1),YY,ZZ,1) 一 KKGII) THEN X1 
一 X1 十 1 
NEXT S1 
IF X1 >>= MB THEN DD 三 1: RETURN 
DD = 0; RETURN 
REM 清除 
FOR XX 王 1TOSB(CJSCRR)) 
FOR YY = 1TO6 
FOR ZZ 王 1TO8 
IF BK% (HB(RR,XX),YY,ZZ,1) <<>> KK(CII) THEN 
7120 
BK% (HB(RR,XX) ,YY,ZZ,1) 三 0 
T 一 BK%(HB(RR,XX),YY,ZZ,2) 
BK% (HB(RR,XX),YY,ZZ,2) 一 0 
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7080 下 %(T,YY,ZZ) 一 0 
7120 NEXT ZZ,YY,XX 
7125 CP 一 1 
7130 RETURN 
3. 调 课 与 查询 模块 (TK) 
0 REM TK 
1 LOMEM:6x*16x*16x16 
2 DIM KM 和 (20):G 王 0 
3 FOR I=1TO 6:READ B$(I):NEXTI 
4 DATA 一 ,二 ,三 ,四 ,五 ,六 
5 FORI 一 1TO 15:READ KM 和 $ (IT) :NEXT1I 
6 DATA 体 , 银 , 音 , 美 , 语 ,外 , 物 , 化 , 生 , 地 , 历 , 口 , 政 , 计 
10 DIM BK%(8,6,8,2),JK%(30,6,8) 
12 DIM JH (30) 
14 DIM KK(20) 
15 HOME 
16 VTAB 5:HTAB 10 
17 PRINT " 调 课 与 查询 " 
18 FOR I=1TO 700:NEXTI 
19 HOME 
20 D$= CHR$ (4):0$ 一 "OPEN" :W $ 一 "WRITE" ;R 
$ 一 "READ" :C$ 一 "CLOSE 
21 INPUT "年 级 :";F$ 
22 PRINT " 换 数据 盘 后 回 车 ";X$ 
23 PRINTD$;0$;FY 
24 PRINTD$;R$;FV 
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100 


INPUT BS 


FOR B1 = 1TOBS:INPUT SS(B1): NEXT B1 


INPUT KS 


FOR B1 和 1TO KS: INPUT KK(B1): NEXT B1 


INPUT NR 


FOR W =1TONR:INPUT JHCW):NEXT W 


PRINT DY$IC ;FEFV 
PRINT DV$ 
HOME ;, PRINT TAB( 4); 


FOR IT 一 1TO16:PRINT7 <*7"; :NEXT TI， PRINT 


PRINT TAB( 6);71 调 课 ” 
PRINT.TAB( 6);”2 查询 ” 
PRINT TAB( 6);7"3 结束 " 


PRINT TAB( 47); 


FOR I=1TO16:PRINT 7 :NEXT II PRINT 


INPUT "请 选择 :"”;A 
ON A GOSUB 100,3000,98 
GOTO 38 


INPUT " 换 系 统 盘 后 回 车 ";X $ 
PRINT CHR$ (4);"RUN HELLOY 
REM 调 课 
INPUT "班次 :";XX 
R 一 0 


FL9$4 王 F$ 十 "一 "十 STR$ (XX) 十 "一 BAN7 


PRINT DJ 和 $;08$3;F1$ 和 7 L87 
FOR B2 一 1TO6 
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270 FOR B3 一 1TO8 

280 R = R+l 

290 PRINT D$;R$;F1$;,R";R 

300 FOR B4 一 1TO2 

310 INPUT BK% (XX,B2,B3,B4) 

320 NEXT B4,B3,B2 

330 PRINT Di;CV 

340 PRINT DYV 

400 REM 教师 课表 

410 FOR R1 = 1 TONR 

420 F1$ =F$ 十 "一 "十 STR$ (JHCOR1I)) 十 "一 JSy 

430 PRINTD$4;0$;F18 

440 PRINT D$;R$;F189 

450 _ INPUT B1; IF Bl=- 一 2 THEN 470 

452 INPUT B2 

454 INPUT 共 %(JHCOR1) ,Bl1,B2) 

460 GOTO 450 

470 PRINTD$iC8 

480 PRINT DY9$ 

490 NEXT RI1 

495 GOTO 600 

500 F2$ 一 F$ 十 "一 JM 

510 PRINTD$;08$;F28 

520 PRINTD$;R$;F28$ 

530 INPUT NR 

540 “FOR R1 = 1 TONR;, INPUT JM$ (R1): NEXT R1 
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550 PRINTD$iCV 

560 PRINT D$ 

600 工 一 XX 

605 “GOSUB 610 

606 GOTO 800 

610 PRINT TAB( 6);F$ ; 罗 级 ";T;" 班 课表 " 

620 Al 和 $ = LEFT$CASY$ ,28) 

630 PRINT Al$ 

640 PRINT "! ! 1! 2!13!14!5!6!7! 8 

650 FORJ 王 1TON6 

660 PRINT "!"3B$ (CT)i7 3 

670 FORK 王 1TO8 

675 IF BK%(I,J'K,1) 一 400 THEN PRINT ””;: GOTO 
700 

676 IF BK%(IJK,1)> 50THEN BK$(I,J'K,1) 一 BK% 
(,J'K,1) 一 50 

680 IFKM$COBK 和 (IJ,K,1)) 一 "THEN PRINT " 自 ”; : 
GOTO 700 

690 PRINT KM$ (CBK% (IJ,K,1)); 

700 PRINT 17 

710 NEXT K 

720 ”PRINT 

730 NEXTIJ 

740 PRINT Al1$ 

750 RETURN 

800 PRINT" 哪 两 节 对 调 ?” 

。183 。 


810 PRINT "(1): 

820 _ INPUT " 周 几 ? (不 调 则 输 0)”;Z1 

825 IF Z1 = 0THEN 38 

830 _ INPUT ” 哪 节 ?";J1 

835 IF BK%(XX,Z1,J1,1) 之 50 THEN 837 

836 GOTO 840 

837 INPUT "本 节 是 指定 课 , 要 调 吗 ? (Y/N)";X$ 
838 IFX9$ = "N" THEN 810 

839 IFX$ < 一 > "Y" THEN 837 

840 PRINT "(2):， 

850 INPUT " 周 几 ";Z2 

860 INPUT " 哪 节 ?" ;J2 

865 IF BK%(CXX,Z2,J2,1) 之 50 THEN 867 

866 GOTO 870 

867 INPUT "本 节 是 指定 课 , 要 调 吗 ? (Y/N)7";X$ 
868 IFEX$ = "N" THEN 840 

869z IFX$ < 一 > "Y" THEN 867 


870 HI 一 BK%(XX,Z1,J1,2) :H2 一 BK% (CXX,Z2,J2，,2) 


880 Z 王 Z1:J=Jl:H 一 H2 

890 GOSUB 2000 

900 IF cc = 1THEN PRINT H2;" 号 教师 重 堂 !" :CC 
GOTO 600 

910 Z = Z2:J= J2:H = HI1:, GOSUB 2000 

920 IF cc = 1 THEN PRINT H1;" 号 教师 重 堂 !" :CC 
GOTO 600 

930 T = BK%(XX,Z1,Jl,1) 
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0: 


940 BK%(XX,Z1,Jl,1) 一 BK%(CXX,Z2,J2,1) 
950  BK%(XX,Z2,J2,1) 一 工 
960 BK(CXX,Z1,Jl1,2) 一 H2:BK%(XX,Z2,J2,2) 一 H1 


970 下 %(H1,Z2,J2) 一 XX:JK% (CH1,Z1,J1) 一 0 
980 下 %(H2,Z1,J1) 一 XX:JK%(H2,Z2,J2) 一 0 


990 PRINT "新 课表 " 
1000 GOSUB 610 
1010 _ INPUT "还 调 吗 ? (Y/N)";Xd$ 
1015 G=G 二 1:GHCG)=Hl:G=.G 二 1:GH(G) = H2 
1020 IFX$ = ，"Y" THEN 600 
1025 IFX$ <> "NTHEN 1010 
1030 R 一 0 
1040 FI1$ =F$ 十 "一 "十 STR 和 $CXX) 十 "一 BAN7 
1050 PRINTD$;0$;F1$j,L8 
1060 FOR B2 一 1TO6 
1070 FOR B3= 1TO8 
1080 一 R 十 1 
1090 PRINTD$iwV$;F18$3j,R";R 
1100 FOR B4 一 1TO2 
1110 PRINT BK%(XX,B2,B3,B4) 
1120 NEXT B4,B3,B2 
1130 PRINT DY$iCV 
1140 PRINT DV 
1150 FOR B1 = 1TOG 
1160 F2$ 王 F$ 十 "一 "十 STR$ (GH(CB1)) 十 "一 JS 
1170 PRINT D$;0 和 4 ;F289 
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1180 FOR B2 一 1ToO6 

1190 FOR B3 王 1TO 8 

1200 PRINTD$;W$;F28$ 

1210 IF 共 %(GH(B1),B2,B3) 王 0 THEN 1250 

1220 PRINT B2 

1230 PRINT B3 

1240 PRINT JK%(GH(B1),B2,B3) 

1250 NEXT B3,B2 

1260 PRINT 一 2: PRINT 一 2: PRINT 一 2 

1270 PRINTD$icfy 

1280 PRINT DV$ 

1290 NEXT B1 

1300 INPUT "还 调 别 班 吗 ? (CY/N)";X$ 

1310 IFEXV$ 一 "Y"” THEN 1330 

1320 RETURN 

1330 INPUT " 班 号 :”;XX 

1340 ”GOTO 600 

2000 REM 

2010 CC 一 0 

2020 IF 区 %(H,Z,J) = 0THEN RETURN 

2030 CC = 1: RETURN 

3000 REM 查询 

3010 HOME 

3020 PRINT TAB( 4); 

3030 FORI 一 1TO16: PRINT "xyw;:"7NEXT I， PRINT 

3040 PRINT TAB( 6);” 1 一 一 教师 课表 " 
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3050 PRINT TAB( 6) ;2 一 一 班 课表 " 

3060 ”PRINT TAB( 6) ;3 一 一 返回 " 

3070 PRINT TAB( 4); 

3080 FOR IT 一 1TO 16;, PRINT xy";:NEXT I: PRINT 
3090 _ INPUT "请 选择 :”;B 

3100 ON B GOSUB 3200,4000,3120 

3110 GOTO 3020 

3120 GOTO 38 

3200 REM 查 教师 课表 

3205 _ INPUT "请 输入 教师 代号 :";HH 

3210 F2$ =F$ 十 "一 "十 STR (HH) 十 "一 JS 
3220 PRINTD$;09$;F28$ 

3230 PRINT D$;R$;F2$ 

3240 INPUT Bl; IF Bl1= 一 2THEN 3280 

3250 INPUT B2 

3260 _ INPUT 下 %(CHH,B1,B2) 

3270 ”GOTO 3240 

3280 PRINT D$iCV$ 

3290 PRINT DV 

3300 “HOME 

3310 B$ = "一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


8320 IF LEFT$ (F$,1) = "G" THEN FF$ 一 "高 "; 
GOTO 3340 
3330 FFS$ 一 " 初 " 
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3340 


3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 


3430 
3440 


3450 
3460 
3470 
3480 
3490 
3500 
3510 
4000 
4010 
4020 
4030 
4040 


NF$ 一 RIGHT$Y (F$4,2) :Al9 一 LEFT$(B， 
33) 

PRINT TAB( 5);EF$;INF$ ;级 ";HH;ji 号 教师 课 和 
PRINT Al1$ 

PRINT "1!1! 1!2!3! 4! 5! 6! 7! 8 

FORJ 王 1TO6 

PRINT "!"3;B$ 3;(J)3717; 

FOR K 一 1 TO 8 

PRINT ”7"; 

IF 下 % (CHH,JK)<<1OR J 攻 %(CHH,JK) 之 =10 
THEN PRINT ”"; :GOTO 3450 

PRINT JK% (HH,J,K); 

IF J 共 %(CHH;J,K) 之 20 THEN PRINT ”x J73; ;GOT0 
3460 

PRINT ”17 ; 

NEXT K 

PRINT 

NEXT J 

PRINT Al$ 

INPUT " 按 (RETURN) 返 回 ";X$ 

RETURN 

REM 查 班 课表 

INPUT "班次 :";B1 

R 一 0 

FI$ 王 F$ 十 "一 "十 STR$(BL) 十 "一 BAN" 
PRINTD$;0$3;F19$ 和,L87 
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(50 FOR B2 王 1TO6 

(00 FOR B3 王 1TO8 

人 070 R 王 R 十 1 

(080 PRINT D$;RV$3;F1L1$ 7 ，R7;R 

4090 FOR B4 王 1TO 2 

1100 INPUT BK% (Bl1,B2,B3,B4) 

(0 NEXT B4,B3,B2 

(120 PRINT D$;C$ 

4 人 30 PRINT D$ 

人 40 ASV$ 一/ 一 一 一 一 二 


4150 HOME 

4160 PRINT 

(70 PRINT TAB( 6);F$ ;级 ";B1; 班 课表 " 

180 Al$ = LEFT$ (A$ ,28) 

4190 PRINT Al19 

4200 PRINT 111!2!3!4!15!6!7! 8 

(210 FORJ 一 1TON6 

(220 PRINT ”173;B$(J);i717 3; 

(230 FORK 王 1TO8 

(240 IFK > 之 6ORBK%(B1L,J'K,1) 一 400THEN PRINTY 
";; GOTO 4270 

4245 IF BK%(B1,J,K,1) 之 50THEN BK%(B1,JK,1) 一 
BK%(B1,J,K,1) 一 50 

(250 IFKMSV$CBK%(B1.J,K,1)) 王 ”THEN PRINT 自 "; 
GOTO 4270 

。 189 


4260 


PRINT KMS$ (CBK%(B1,J,K,1)); 


4270 PRINT "17 ; 

4280 NEXT K 

4290 ”PRINT 

4300 NEXT J 

4310 PRINT Al1$ 

4320 _ INPUT " 按 (RETURN) 返 回 ";X$ 

4330 RETURN 
4, 显示 与 打印 模块 (DY) 

0 REM DY 

2 LOMEM:;:6x* 16x 16 xx 16 

4 DIM BK%(8,6,8,2),JK%(30,6,8) 

5 DIMMK$(15),KMS$ (15),JM9$ (30),JH(C30) 

6 DIM KK(18) 

7 GOTO 10 

8 FORI 王 1TO22: PRINT”*wi: NEXT I,， PRINT 

9 _ RETURN 

10 HOME : VTAB 3:; HTAB 5 

12 B$(l1) 一" 一 ":B$(2) 一 "二 ”:B$(3) 一 "三 " 浊 
$(4) 一" 四 ":B$(5) 一 "五 ":B$(6) 一 "六 ? 

13 BB$ 一 "星期 " 

14 FORI 一 1ToO15:READKMS$(ID): NEXTI 

16 DATA 体 , 锻 , 音 , 美 , 语 , 数 ,外 , 物 , 化 , 生 , 地 , 历 , 口 , 政 
计 

17 FORTI=1TOoO15:,READMKV$(ID:NEXTI 

18 DATA 体育 , 锻 练 ,音乐 ,美术 ,语文 ,数学 ,外 语 , 物 理 , 
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学 ,生物 ,地 理 , 历 史 , 口 语 ,政治 ,计算 机 
GOSUB 8 


PRINT 

HTAB 10;, PRINT "显示 打印 课表 ” 
PRINT 

HTAB 5: GOSUB 8 

FOR IT 二 1TO 1000: NEXT1I 
HOME 

INPUT " 换 数 据 盘 后 回 车 ";X$ 
HTAB 5: GOSUB 8 


HTAB 10: PRINT "1 一 一 教师 课表 " 
HTAB 10: PRINT ”2 班级 课表 ” 
HTAB 10: PRINT "3 返回 ” 


HTAB 5; GOSUB 8 
HTAB 10: PRINT "请 选择 :" 
INPUT 和 A 


IEA 一 3THEN INPUT " 换 系 统 盘 后 回 车 ";X$ : 


PRINT CHR $ (4);"RUN HELLO" 

IF A < > 1ANDA 一 > 2THEN 110 
HOME 

HTAB 5 

PRINT "1 打印 ”2 一 一 显示 ” 
PRINT : HTAB 5: PRINT "请 选择 :"; 


INPUT B: IFB<> 1ANDB<>2THEN 160 
D$ = 王 CHR$ (4):0$ 一 "OPEN" :C 和 一 "CLOSE" :R 


$ 三 "READ";W$ 王 "WRITE" 


200 HOME 

205 PRINT “课表 使 用 日 期 :": INPUT "年 (XX ) :”";MM; 
INPUT "月 (XX):";UU 

210 INPUT "年 级 名 :”;FV$ 

212 IF LEFT$ (F$ ,1) 一”"G" THEN FF 和 $ 一 "高 ": GOT0 
216 

214 FFS$ 一 " 初 " 

216 FJI$ = RIGHT 和 $ (F$ ,2) 

220 PRINTD$;0$3;F$ 

230 PRINTD$;R9;F 和 

240 INPOT BS 

245 FOR Bl1 = 1TO BS; INPUT SS(B1): NEXT Bl 

250 INPUT KS 

260 FOR B1 = 1 TO KS: INPUT KK(B1): NEXT B1 

262 INPUT NR 

264 FOR W = 1TONR: INPUT JHCW): NEXT W 

270 PRINT Di:c$;FV$ 

280 PRINT D8$ 

281 了 PRINT "请 检查 教师 代号 :” 

282 FOR W = 1 TONR: PRINT WwW,JHCW): NEXT W 

283 INPUT "是否 修改 ? (Y/N)";X$ 

284 IFX$ <<>>"Y" THEN 290 

285 _ INPUT " 改 第 几 位 ?"; W 

286 INPUT "代号 ?7;JHCW) 

287 INPUT "还 改 吗 ? (Y/N)"IY$ 

288 IFEYV$ = 一”Y" THEN 285 
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290 ON A GOSUB 300,1000 

295 GOTO 60 

300 REM 教师 课表 

305 INPUT “是否 显示 教师 姓名 ? (Y/N)?";M$ 

310 FOR R1 = 1TONR 

320 FI$ 一 F 和 $ 十 "一 "十 STR$ (COJHCOR1)) 十 "一 JSy 

330 PRINT D$;0$;F19 

340 PRINTD 和 $;R 和 ;IF1 和 $ 

350 _ INPUT Bl1;,IFBLI 一 一 2THEN 370 

351 INPUT B2 

352 _ INPUT J 区 % (JHCR1),B1,B2) 

360 GOTO 350 

370 PRINT D$iICV 

380 PRINT DY$ 

390 NEXT R1 

391 IFMS 和 $ = "NTHEN FOR RL 一 1TONR:JMU 和 CH 
(R1))=STR 和 (CCJHCGR1I)) 十 "号 ":NEXT R1: GOTO 
400 

392 F2$ = F$ 十 "一 JM" 

393 ”PRINT D 和 4$ ;0 和 3;F2U$ 

394 PRINT D 和 $;R 和 $;F2$ 

395 INPUT NR 

397 PRINTD4 ,CH 

398 PRINT DV$ 

400 B$ 一 "一 一 ss 二 全 二 二 


410 IFB 一 1THEN 650 

415 HOME 

420 FORI 一 1TONR 

430 PRINT 

440 PRINT TAB( 5);F$ ;级 ";JMS$ (JSCGD))3 老 师 课 表 "; 
TAB( 25);"(";JH(GDi 和 7) 号 " 

450 Al$ = LEFT$ (B 和 9 ,29):, PRINT Al$ 

460 PRINT "!! 1! 2! 3! 4! 5! 6! 7! 8 必 

470 FORJ 一 1TO6 

480 PRINT ”4273 有 和 $ (0J)3 和 1 

490 FOR K 王 1TO 8 

500 IF 下 %(CJHCD,JK) < 10OR 下 %(CJH(GD,J'K) > = 
100 THEN PRINT ”"; : GOTO 530 

505 IF JK%(CJH(GD),J,K) > 20 THEN PRINT 共 %(JH(OD， 
J;,K) 一 20;" xx 17; :， GOTO 540 

510 PRINT JK% (CJH(GID ,J,K); 

530 PRINT "1 ; 

540 NEXT K 

550 PRINT 

560 NEXTJ 

570 PRINT Al1$ 

580 PRINT : PRINT 

590 NEXT1I 

600 _ INPUT "还 显示 此 课表 吗 ? (Y/N)";Xf 

610 IFX$ = ”"Y" THEN 410 
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620 
650 
660 
665 
667 
668 
680 
690 
700 
710 
720 


730 . 


740 
750 
755 
756 
760 
761 
762 


763 


7614 
770 


780. 


790 


RETURN 
REM 打印 

HOME:FF$ 二 LEFT$(F4 ,1) 

IF FF 和 $ 一"G” THEN FF$ 一 "高 ": GOTO 668 
FF$ 一 " 初 " 

FJ$ = RIGHT$ (F$ ,2) 

GOSUB 8 

HTAB 10: PRINT "1 一 一 全 部 教师 " 

HTAB 10;PRINT "2 一 一 一 位 教师 " 

HTAB 5: GOSUB 8 

HTAB 10: PRINT ”请 选择 :" 

INPUT C 

IF C <<>1ANDC <> 2THEN 720 

IF C = 2 THEN 900 

PRINT DB 

PRINT "OK 

INPUT "有 无 跨 年 级 教师 (Y/N7?"3;X$ 

IFX$ 一 > "Y" THEN 770 

FOR I = 1 TO NR:, PRINT JM$ (JIH(GIT)); :INPUT ， 
(Y/N)?7" ;KJ$ 

IF KJ$ 一 "Y" THEN PRINT " 换 盘 " ;GOSUB 4000， 


.PRINT " 换 盘 " 


NEXT I 
POKE 1659 ,2 
FOR I 王 1TONR 
PRINT 
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800 


810 
820 
830 
840 
850 
860 


865 


870 
882 
8814 
885 
890 
892 
8914 
895 
900 
910 
911 
912 
913 
9114 


HTAB 2: PRINT FF$4 ;FJ$ ;级 ";JM$ (JH(GD 7) 老师 
课表 ";”19" ;MM;" 年 ";UUi" 月 起 " 

Al$ 一 LEFT $ (B$ ,48): PRINT Al19$ 

PRINT "! 1 1!2!31!1141!15161!171!181 
FORJ 王 1TON6 

PRINT A1$ : PRINT "1!"3;BB$$3;B$(J)371; 

FORK 一 1TO8 

IF JK%(JHGD,JK) < 1OR 下 %(JHGTD,JK) > 一 
100 THEN PRINT ”!": GOTO 8814 

IF JK% (CJH(GID ,J,K) > 20 THEN PRINT" "”; JK%(JH 
(TD ,J,K) 一 20;" xx 123: GOTO 884 

PRINT " "3;JK%(JHGD ,J,K); 

PRINT "!7; 


NEXT K 
PRINT : NEXTIJ 
PRINT Al189 

PRINT : PRINT 
NEXTI 

POKE 1659,0: RETURN 
HOME 


INPUT "教师 代号 :”;JH 

INPUT "是 否 跨 年级? (Y/N)";XS$ 

IEREXV 和 $ <>>”"Y"” THEN 915 

INPUT "还 教 几 个 年 级 ?";KN 

FOR I = 1 TO KN: PRINT " 换 盘 ;GOSUB 4000， 
NEXT1I 
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915 POKE 1659,6 

920 PRINT 

930 HTAB 5: PRINT FS 和 $;FJ$;" 级 ";JMS$ (JH);" 老 师 课 
表 ";”19";MM;" 年 ";UUi" 月 起 

940 Al$ 一 LEFTY (B$ ,48);PRINT Al19 

942 PRINT 111!12!13!4!5!6!7!8 

944 FORJ 一 1TO6. 

946 PRINT A1$ : PRINT "!73;BB$3;B$(J)3717 3; 

948 FORK 一 1TOoO8 

950 IF 芒 %(JH,J,K) <1OR J%(JH,J,K) 之 一 100 
THEN PRINT ”7;” GOTO 958 

952 IF JK%(JH,JK) > 20THEN PRINT 7 "3; JK%(CJH,J， 
K) 一 20;"x 12; :GOTO 958 

954 PRINT "7 ;JIK%COH,J,K); 

956 PRINT 17; 

958 ”NEXT K 

960 PRINT : NEXT IJ 

962 PRINT Al1$ 

964 PRINT : PRINT 

970 POKE 1659,0 

980 _ INPUT "还 打印 吗 ? (Y/N)";XV$ 

985 IFX$ 一"Y" THEN 900 

987 RETURN 

1000 REM 班 课表 

1100 FOR B1 = 1 TO BS 

1110 R=0 

。197 。 


1120 Fl1$ =F$ 十 "一 ”十 STR$(SS(CB1)) 十 "一 BANY 
1130 PRINTD$;0$;F19$3;，L87 

1140 FORB2 天 1TO6 

1160 FOR B3 王 1TO8 

1170 R 王 R 十 1 

1180 PRINTD$;RV$;F19$ 3; ,R7;R 

1190 FOR B4 王 1TO2 

1200 INPUT BK% (SS(B1),B2,B3,B4) 

1210 NEXT B4,B3,B2 

1215 PRINTD$;CV9 

1216 NEXT Bl1 

1230 PRINT DBV$ 

1240 Ag$ 三 ?一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


1250 IFB 王 1THEN 1500 

1280 HOME 

1290 FORI= 1TOBS 

1300 PRINT 

1310 ”PRINT TAB( 6);F$ji 级 ";SS(T); 班 课表 "3;” 197; 
MM;" 年 ";UU 密 月 起 

1315 Al$ =LEFT$ (A$ ,28) 

1320 PRINT Al1$ 

1330 PRINT"!! 11!12!31!415!6!71!8 

1350 FORJ 王 1TO6 

1355 PRINT "1!"3B9$(J)3717 3 
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1360 
1365 


1367 


1370 


13714 
1376 
1380 
1385 
1390 
1400 
1410 
1420 
1430 
1440 
1500 
1501 


1502 
1503 
1504 


1506 


FORK 一 上 TO8 

IF BK%(SS(T),J,K,1) 一 400 THEN PRINT ”3 

GoTO 1376 

IF BK% (SS(T),J,K,1> 50THEN BK%(SS(I)，J,K， 

1) = BK%(SSCTD ,J,K,1) 一 50 

IF KM$CBK% (SS(TD ,J,K,1)) 一 ”THEN PRINT 

" 自 "; : GOTO 1376 

PRINT KM$ (CBK% (SSCGD ,JK,1)); 

PRINT ”17"; 

NEXT K 

PRINT 

NEXT J 

PRINT Al1$ 

NEXT I 

INPUT "还 显示 此 课表 吗 ? (Y/N)";X$ 

IFXV$ 一"Y"” THEN 1280 

RETURN 

REM 打印 班 课表 

BD$(1) = 班会 ":BD$(2) 一 " 团 会 ":BD$(4) 一 

" 银 炼 ":BD $ (5) 一" 大 扫除 ":BD$ (6) 一 ”7”:BD 

$(3) 一“ 队 会 ， 

HOME ;PRINT "输入 第 七 , 八 节 课 代 号 : 

PRINT "1 一 一 班 会 "2 一 一 团 会 "3 

PRINT “1 一 一 锻 炼 ",” 5 一 一 大 扫除 ",”6 

排 ","7 一 一 有 课 " 

FOR 本 = 1 TO 6: PRINT "星期 ";J; : INPUT BD(J) ; 
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队 会 "， 


无 安 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1595 
1600 
1610 


1615 
1620 
1630 
1635 
1640 
1650 
1660 
1670 


1675 


1680 


NEXT JJ 
HTAB 5: GOSUB 8 

HTAB 10: PRINT "1 一 一 所 有 班 " 

HTAB 10: PRINT "2 一 一 一 个 班 " 

HTAB 5: GOSUB 8 

HTAB 10: PRINT "请 选择 ;" 

INPUT C 

IFC < > 1ANDC <> 2THEN 1550 

IF C = 2 THEN 2000 

FOR I 一 1 TO BS 

POKE 1659,6 

PRINT 

PRINT TAB( 16);FF$;FJ$ ;级 ";SS(T);" 班 课表 "， 
PRINT TAB( 27) ;”19";MM;" 年 ">;UUi" 月 起 " 
Al$ 一 LEFT$CASV$ ,48) 

PRINT Al19$ 

PRINT "1 11112131!1415!16!71!18 岂 
PRINT Al1$ 

FORJ 一 1TO6 

PRINT "!";BB$;B$(0J)3i7173 

FOR K 王 1 TO 6 

IF BK%(SS (IT),J,K,1) 一 400 THEN PRINT:” 
GOTO 1700 

IF BK% (SS(ITD) ,J,K,1)> 50 THEN BK%(SS(IT) ,JK， 
1) = BK%(SSGT,J'K,1) 一 50 

IF MK$CBK%(SS(TD ,JK,1)) 一 ”THEN PRINT 
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"自习 "; : GOTO 1700 

1690 PRINT MK$ CBK% (SS(CTD ,JK,1)); 

1700 PRINT "1"; 

1710 NEXT K 

1712 IF BD(J) = 7 AND BK%(SS(D,J,K,1) 之 50 THEN 
BK%(SS(GTD ,J;K,1) = BK%(SSGD,J,K,1) 一 50 

1713 IF BD(J) = 7 AND BK%(SS(GD ,J,K,1) = 0 THEN 
BD(J) 一 6; GOTO 1720 

1715 IF BD(J) = 7 THEN PRINT MK$ (BK% (SS(GT) ,J,K， 
1));” 147: GOTO 1725 

1720 PRINT ";BDJ$(BD(JD))j7 1 

1725 PRINT Al1$ 

1730 NEXTIJ 

1740 PRINT,.: PRINT ， PRINT 

1750 NEXT1 

1760 POKE 1659,0 

1770 ”RETURN 

2000 “HOME 

2010 INPUT " 班 号 :";SS 

2015 POKE 1659,6 

2020 “PRINT 

2030 ”PRINT TAB( 16);FF$ ;FJ$ ;级 ";SS:” 班 课表 " 

2040 Al$ 一 LEFT$CA$ ,48) 

2050 PRINT Al 

2060 PRINT 7111! 2!13!14!5!6!7! 8 

2670 ”PRINT Al 
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2680 FORJ 一 1TO6 

2690 PRINT "!";BB$;B$(J)31v3 

2700 FORK 王 1TO8 

2710 IF K> 6 THEN PRINT” "; ， GOTO 2740 

2720 IF MK$CBK%(SS,J,K,1)) 一 ””THEN PRINT 
”自习 "; : GOTO 2740 

2730 PRINT MK$(CBK%(SS,J,K,1)); 

2740 PRINT "!"; 

2750 NEXT K 

2760 ”PRINT 

2770 PRINT Al19 

2775 NEXT J 

2780 POKE 1659,0 

2790 INPUT "还 打印 吗 ? (Y/N)";X$ 

2800 IFX$ 一 "Y" THEN 2000 

2900 RETURN 

4000 REM 调 路 年 级 课表 

4010 INPUT "还 教 哪个 年 级 ?";F3$ 

4015 INPUT "代号 :”";JH(T) 

4020 Rl = JH(I) 

4030 FI1$=F3$ 十 "一 " 十 STR$ (JHCR1)) 十 "一 JSy 

4040 PRINTD$;0$;F19 

4050 PRINTD 和 $;R$;FIY 

4060 INPUT Bl: IF Bl = 一 2THEN 4100 

4070 INPUT B2 

4080 INPUT 下 % (JHCR1),B1,B2) 
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4085 JK%(JHCOR1) ,Bl1,B2) = 下 %(JHCR1),B1,B2) 十 20 
4086 灭 % (JH,Bl1,B2) 王 下 %(JHCGR1),B1,B2) 

4090 GOTO 4060 

4100 PRINTD$iC8 

4110 PRINT DY 

4120 ”RETURN 


了 co 中 员 由 心 


5. 输入 教师 姓名 模块 (SJ) 
REM.SJ 
DJ$ 一 CHR$ (4);0 和 9 一 "OPEN" :WwW 和 $ 一 "WRITE":, R 
$ = "READ":C$ 一 "CLOSE":, DIM JM$ (30),JH(30) 
FOR I 一 1TO 18: PRINT NEXT I;PRINT 
PRINT TAB( 6);71 一 一 输入 ” 
PRINT TAB( 6);"2 一 一 查询 ,修改 
PRINT TAB( 6);"3 返回 ” 
FOR II 一 1TO 18:;, PRINT "xi :NEXT I， PRINT 
INPUT "请 选择 :”;A 
ON A GOSUB 10,200,400 
GOTO 2 

INPUT "年 级 名 :”5F$ 

FI$ 王 F$ 十 "一 JM" 

INPUT "教师 人 数 :”;NR 

FOR I = 1TONR 

PRINT (73 TD) 

INPUT "代号 :;";JM$ (T) 

INPUT "姓名 :";JM$ (IT) 

PRINT "修改 吗 ? (Y/N)" ;INPUT X$ 
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70 

80 

90 

100 
110 
115 
120 
125 
130 
140 
145 
150 
160 
170 
200 
210 
220 
230 
240 
250 
255 
260 
270 
275 
280 
290 


IFX$ = ”"Y" THEN 50 
NEXT TI 
INPUT " 换 数 据 盘 后 回 车 ";X$ 
PRINTD$ ;0$ ;FL 
PRINTD$;WS$;F18 
PRINT NR 
FOR I = 1 TONR 
PRINT JH(T) 
PRINT JM$ (ID) 
NEXT 1 
PRINT DV 
PRINTD$iCcf 
PRINT DY 
RETURN 
INPUT "年 级 名 :”;F$ 
FI$4 =F$ 十 "一 JM" 
PRINTD$;0$;F18 
PRINTD$;R;F18 
INPUT NR 
FOR ITI = 1 TONR 
INPUT JH(D) 
INPUT JM$ (TD 
NEXT 1 
PRINT D$ 
PRINTD 和 $;CV$ 
PRINT D$ 
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300 FORI= 1TONR 

310 PRINT (37) 7;JHGD; 一 JM9COD 

320 NEXTI 

325 INPUT "是 否 修改 ?” (Y/N)";X$ 

326 IFX$ <> "Y" THEN 3314 

327 _ INPUT "第 几 位 教师 ?";T 

328 INPUT "代号 ;";JH(TD): INPUT "姓名 :";JMV$ (TD 

329 INPUT "还 改 吗 ?";Y$ :IFYS$ ="Y" THEN 327 

330 GOSUB 100 

334 _ INPUT " 按 (RETURN) 返 回 ";XXV$ 

335 “HOME 

340 RETURN 

400 INPUT " 换 系 统 盘 后 回 车 ";X$ 

410 PRINT CHR 和 $ (4);"RUN HELLOY 
6. 复制 课表 模块 (FZ) 

5 REM FZ 

10 LOMEM:6 x 16 x* 16 x 16 

20 DIM BK%(6,6,8,2),JK%(30,6,8),JH(C30) 

30 D$ = CHR44 (4):0$ = "OPEN" :W$ 一 "WRITE ; 
RV$ 一 "READ :C$ 一 "CLOSE% 

100 FORTI 一 1TO33: PRINT xi;: NEXT I， PRINT 

110 PRINT TAB(6);"1 复制 班 课表 ” 

120 PRINT TAB( 6);"2 一 一 复制 教师 课表 ” 

125 PRINT TAB( 6);”"3 返回 " 

130 FOR IT 王 1TO 33: PRINT "xi;:; NEXT TI， PRINT 

140 INPUT "请 选择 :";C 
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150 ON C GOSUB 1700,1900,3000 
160 GOTO 100 


1700 
1702 
1704 
1705 
1706 
1707 
1708 
1715 
1720 
1725 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1815 
1830 
1900 
1905 
1910 


REM 复制 班 课表 
INPUT "年 级 名 ”;F$ 
INPUT "班次 ";SS(B1) 
FOR B2 = 1TO6 
FOR B3 王 1 TO 8: PRINT "(";B2" "3;B33")73 
INPUT " 科 号 :”;BK%(SS(B1),B2,B3,1) 
NEXT B3,B2 
R 一 0 
FI$ 一 F$4 十 "一 "十 STR$(SSCB1)) 十 "一 BAN7 
INPUT " 换 数 据 盘 后 回 车 ";X$ 
PRINTD$;0$3;F1$3;,L87 
PRINT D$ 
FOR B2 天 1TO6 
FOR B3 一 1TO8 
一 R 十 1 
PRINTD$wW$;F1$ ji ,R7";R 
FOR B4 一 1TO2 
PRINT BK% (SS(B1),B2,B3,B4) 
NEXT B4,B3,B2 
PRINT Di;CV$ 
PRINT D 和 4. 
REM 复制 教师 课表 
INPUT "年 级 名 "3;FS$ 
INPUT " 教 号 ;";JH(CB1) 
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1911 INPUT "上 课 节 数 :”;X 

1912 FORI 一 1TOX 

1913 ”PRINT "第 ";T;" 节 " 

1914 INPUT " 周 几 ?" ;B2:; INPUT "第 几 节 ?";B3: INPUT" 
班 号 ?"; 下 % (JHCB1),B2,B3) 

1915 NEXTI 

1920 有 R=0 

1930 F2$4 王 F$ 十 "一 ”十 STR 和 $ (JHCGB1)) 十 "一 JS7 

1940 PRINTD$;0$;F289 

1950 PRINT DV 

1960 FOR B2 王 1TON6 

1970 FOR B3 一 1To8 

1990 PRINTD$;w$;F289 

2000 IF 下 %(JHGB1),B2,B3) 一 0THEN 2020 

2010 PRINT B2 

2012 ”PRINT B3 

2013 ”PRINT JK% (JH(B1),B2,B3) 

2020 NEXT B3,B2 

2025 PRINT 一 2 

2026 PRINT 一 2 

2027 PRINT 一 2 

2030 PRINTD$iCV 

2040 PRINT DY 

3000 INPUT " 换 系 统 盘 后 回 车 ";X 

3010 PRINT D$ ;"RUN HELLOY" 
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第 四 章 “库房 管理 系统 


本 软件 适用 于 商品 库房 等 部 门 使 用 ,能 对 物品 的 进 、 出 均 
作 登 记 、 查 询 .计算 单价 ,打印 出 货 清 单 、 盘 存 数 据 . 采 购 清 单 
等 报表 为 经 营 者 作出 决策 提供 依据 。 使 用 户 减 少 库存 ,加快 
周转 ,增加 利润 。 
(一 ) 建 立 随机 文件 
首先 建立 并 运行 以 下 程序 ,建立 ABC.D.E、F 等 六 个 
随机 文件 : 
A:10 INPUT "文件 名 :";YUEV 
20 DV$ 王 CHRV$(4) 
30 PRINT DV$;i"OPEN"; YUE 和 $ 和 L1207 
40 PRINTDV 和 $;” WRITE";YUES$ ji ，R0/ 
50 PRINT 0 
60 PRINT D$ ;CLOSE' ;YUEVW 
RUN( 回 车 ) 
文件 名 : 科 名 ( 回 车 ) 
B: 10 INPUT "文件 名 :”";F$ 
20 DV$ 王 CHR$(4) 
30 PRINT DV$ ;OPEN ;FJ$ 和 ，L387 
40 PRINT D$jiWRITE“;F 和 $ ij，RO/ 
50 PRINT 0 
60 PRINT DV$ ;"CLOSE" ;FV$ 
RUN( 回 车 ) 
。208 ， 


文件 名 : 院 〈 回 车 ) 


C:10 
20 
30 
40 
50 
60 


INPUT "文件 名 :”;ES$ 

D$ 王 CHRS$(4) 

PRINT D $ ;OPEN";E$i,L120" 
PRINT D $ ;WRITE" ;ES$ 7，R0/ 
PRINT 0 

PRINT D $ ;"CLOSE";E$ 


RUN( 回 车 ) 
文件 名 :成 品 ( 回 车 ) 


D ， 10 
20 
30 


INPUT "文件 名 :”;E$ 
DV$=CHR 和 (4) 
PRINT D$ ;OPEN";E$ 和 ，L120" 


40 PRINT D$iWRITE";E$ 7 ，RO7 
50 PRINT 0 

60 PRINT D$;"CLOSE" ;ES$ 

RUN (〈 回 车 ) 


文件 名 :品名 《〈 回 车 ) 


下 ;10 
20 
30 
40 
50 
60 


INPUT "文件 名 :”5E$ 

D$ 王 CHR$(4) 

PRINT DJ$ ;， "OPEN" ;ES$ ji,L120" 
PRINT D$ jiWRITE";E$i，RO/ 
PRINT 0 

PRINT D$ ;CLOSE ;EV$ 


RUN ( 回 车 ) 
文件 名 : 列 名 〈 回 车 ) 


FE:10 


INPUT "文件 名 :”;E$ 
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20 D$ 一 CHR$(C4) 
30 PRINT D$ ;"OPEN";E$ ji),L1207 
40 PRINT DJ$ ;WRITE";E$ jj，RO 
50 PRINT 0 . 
60 PRINT D$ ;CLOSE";EV 
RUN ( 回 车 ) 
文件 名 :原料 〈 回 车 ) 
二) 启动 
开机 后 首先 回答 口令 :任意 击 数 字 键 4 次 , 若 4 次 数字 键 
总 和 等 于 9, 则 视 为 口令 回答 正确 。 例 ; 


9000 一 一 正确 。 
1314 一 一 正确 。 
8000 一 一 错误 。 
1121 一 一 错误 。 


正确 回答 了 口令 后 系统 立即 进入 主 控 模 块 。 
(三 ) 主 菜单 功能 


1. 初 始 6. 数据 清 零 
2. 增添 记录 7. 计算 单价 
3. 修改 记录 8. 计算 总 数 
4. 删除 插入 9. 打印 报表 
5. 查 询 记录 10. 结 束 
(四 ) 定 义 项 目 


在 主 菜单 提示 下 键入 “1? 后 即 进行 两 种 初始 化 操作 : 

1. 定义 列 数目 和 列 名 称 。 例 : 

列 数 ? 8 

名 称 ? 品名 ,产地 ,规格 ,单位 ,数量 ,下 限 , 批 发 价 ,零售 
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价 。 
说 明 :“ 下 限 ? 指 该 物品 最 小 库存 数量 ,用 户 根据 以 往 经 验 
设 定 。 
2. 定义 用 户 数目 和 用 户 编号 。 例 ， 
用 户 数目 ? 5 
编号 NO 19? 罗 东 保 
编号 NO 2? 李 东 新 
编号 NO 3? 杜 毅 名 
编号 NO 14? 陈 新 明 
编号 NO 5? 邹 长 兵 
待 全 部 定义 完毕 ,系统 自动 将 列 数列 名 ,用户 数目 和 用 
户 名 称 存盘 ,然后 返回 主 菜 单 , 以 后 一 般 不 再 定义 。 
(五 ) 增 添 记录 
在 主 菜单 提示 下 键入 “2? 后 , 即 可 按 屏幕 提示 ,反复 逐 项 
输入 品名 ,产地 ,规格 ,单位 ,数量 ,下 限 , 批 发 价 ,零售 价 等 物 
品 数据 ,每 输 完 一 个 品种 数据 ,系统 向 您 提示 是 否 修改 ,回答 
“Y? 光 标 立 即 返回 品名 处 等 待 修改 ,回答 “N? 系 统 立 即将 已 输 
入 的 数据 存 入 磁盘 ,不 再 输入 时 按 “Return?” 键 返回 主 菜单 。 
(六 ) 修 改 记录 
在 主 菜 单 提示 下 键入 “3? 后 ,系统 进入 修改 状态 ,可 进行 
逐 行 、. 逐 列 `. 入 库 .出 库 及 损耗 等 操作 。 
修改 时 屏幕 出 现 提示 : 
请 修改 第 N 行内 容 ( 物 品名 称 ) 
(项 目 名 ) : 原 为 
改 为 
出 库 提 示 : 
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物品 名 称 库存 节余 : 
出 库 数 量 ; 

若 出 库 数量 大 于 库存 数量 ,屏幕 立即 提示 库存 不 够 ,光标 
返回 出 库 数 量 处 ,等 待 重新 输入 正确 数量 。 

入 库 及 损耗 的 修改 操作 与 出 库 操 作 基本 相同 。 

(七 ) 删 除 插入 

在 主 菜单 提示 下 键入 “4 后 系统 进入 删除 插入 模块 ,该 模 
块 具有 删除 记录 ,插入 记录 和 整理 记录 等 三 种 功能 ,可 按 屏幕 
提示 分 别 进行 操作 。 

〈 八 ) 查 询 记 录 

在 主 菜单 的 提示 下 键入 “5 后 进入 查询 状态 ,根据 屏幕 提 
示 可 分 别 查 某 行内 容 . 某 列 内 容 、 出 库 情 况 和 库存 情况 等 内 
容 。 

( 九 ) 数 据 清 零 

在 主 菜单 的 提示 下 键入 “6? 后 进入 数据 清 零 模 块 ,该 模块 
具有 全 部 数据 清 零 .出 库 数据 清 零 和 月 变数 据 清 零 等 三 种 功 
能 ,可 按 屏幕 提示 分 别 进 行 操 作 。 

(十 ) 计 算 单 价 

具有 简单 的 除法 功能 。 

(十 一 ) 计 算 总 数 

具有 累加 、 复 核 及 修改 功能 。 

(十 二 ) 打 印 报表 

在 主 菜单 的 提示 下 键入 “9”, 进 入 打印 模块 ,该 模块 具有 
打印 全 部 记录 、 打 印 盘 存 数 据 和 打印 采购 清单 等 三 种 功能 ,可 
按 屏 幕 提 示 分 别 进行 操作 。 

(十 三 ) 退 出 
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在 主 菜 单 的 提示 下 键入 “10”, 屏 幕 显示 “请 关机 ,再 见 !”， 

此 时 若 要 再 作 其 他 操作 , 则 必须 关机 后 重新 启动 。 
注 : 本 物品 管理 系统 已 在 CEC-I 型 中 华 学 习 机 上 运行 五 
年 。 
库房 管理 系统 流程 图 如 图 4.1 所 示 。 


图 4.1 库房 管理 系统 流程 图 
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库房 管理 系统 程序 清单 , 

程序 名 :HO 

1 HOME , PRINT CHR$ 〈18) 

5 HOME : POKE 1011,1: PRINT CHR $ 〈18) : PRINT CHR 

$ 〈4);"PR#37 

1]15  D$4 王 CHR 和 (4) 

20 PRINT TAB( 6);: FOR JJ 一 0TO 11:,， PRINT "多 "…;; 
NEXT 

30 PRINT : PRINT TAB( 6);i 急 ";SPC(C 20) 和 7 全 " 

40 PRINT TAB( 6) 刀 银 微机 库房 管理 系统 银 

50 PRINT TAB( 6); 急 ";SPC(C 20) 和 7 合 " 

60 PRINT TAB( 6);: FOR J = 0TO 11:， PRINT " 久 ";; 
NEXT 

70 PRINT : PRINT :PRINT TAB( 10);" 联 合 饲料 厂 " 

80 PRINT : PRINT TAB( 11); 一 九 九 〇 年 五 月 " 

90 FOR I 一 1TO 3000: NEXT ; PRINT : PRINT 

99 B 一 0:S=0 

100 ”PRINT CHR $ (12):，PRINT :， PRINT :PRINT ， 
PRINT: PRINT : PRINT TAB( 15);" 口 令 ?/ 

104 S = ST+1:; FORI= 1To4: GET A$(D):B 一 B 十 
VAL (A$(D): NEXTI 


中 注 : 含 有 “PR#3? 的 模块 为 每 一 个 应 用 程序 的 启动 模块 ,以 此 模块 名 代 
替 招 呼 程序 "HELLO” 对 新 磁盘 格式 化 (INIT x X( 启 动 模块 名 ))， 再 分 别 装 入 其 
他 模块 , 即 可 组 成 一 个 完整 的 应 用 程序 。 以 后 应 用 时 ,开机 方 可 自动 进入 主 菜 单 
(下 同 )。 
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105 
106 
108 


109 
110 
120 
125 
127 
130 
140 
150 
155 
160 
170 
180 


190 


200 
210 
220 
225 
230 
235 


cf$ = STR 和 4 (B) 
IFC$ = CHR$ (57) THEN GOTO 110 
IF S = 3 THEN PRINT CHR $ (12): PRINT : PRINT; 
PRINT ,PRINT ,PRINT : PRINT TAB( 12) "口令 不 
对 ,停止 运行 ,":, PRINT CHR$ (19): GOTO 260 
GOTO 100 
PRINT CHR$ (12) 
PRINT ”处理 方式 :” 
PRINT 
PRINT "1. 初 始 6. 数据 清 零 " 
PRINT “2. 增添 记录 7. 计算 单价 " 
PRINT "3. 修改 记录 8. 计算 总 数 " 
PRINT "4. 删除 插入 9. 打印 记录 ” 
PRINT ”5. 查询 记录 10. 退 出 " 
PRINT 
INPUT "请 选择 (1 一 10):";K 
IFK 10ORK > 10THEN PRINT CHR$ (7): GOTO 
170 
ON K GOTO 270,200,210,220,225,230,235,240,250， 
260 
PRINT D$ ;”"RUN AP 
PRINT D$ ;"RUN MO 
PRINT D $ ;"RUN DE” 
PRINT D $ ;"RUN KKKY 
PRINT D $ ;"RUN TTVw 
PRINT D$ ;”"RUN JSDJm 
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430 


PRINT D$ ;"RUN JSZSy 

PRINT D$ ;"RUN P Py 

PRINT CHR $ 〈12)"” PRINT , PRINT :, PRINT : PRINT 
TAB( 12); 刀 请 关机 ,再 见 。 

PRINT CHR $ (19):， GOTO 260 

OP$ =D$ 十 "OPEN':CL$ 王 D$ 十 "CLOSE" 
RD$=DV$ 十 "READ'":,WR 和 王 DV$ 十 "WRITE" 
GOTO 380 

PRINT CHRV$ (12): INPUT 7" 列 数 ?";N 

DIM XUS$ CN) 

PRINT "名 称 ” 

FORI 一 1TON 

PRINT "第 " ;1T;" 列 "; : INPUT XU 和 $ (TD) 

NEXT I 

PRINT OP$ ;7 列 名 7":， PRINT WRV$ 入 列 名 "和 ,Ri 
PRINT N: FORI= 1TON: PRINTXUV$ (TD: NEXTTI， 
PRINT CL$ ;" 列 名 ” 

PRINT OP$ ;品名 7": PRINT WRS$ 入 品名"，R“; 1 
PRINT N: FOR IT 一 1TON: PRINT XU 和 $ (ID NEXT IT， 
PRINT CLV$ ;品名 7” 

PRINT CHR $ (12); INPUT ”用户 数目 27;M 

DIM KU $ (MD) 

PRINT "编号 ;” 

FOR I 一 1 TO M 

PRINT "NO:";T; : INPUT KU 和 (IT) 

NEXT 1I 
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440 PRINT OP$ ; 科 名 " 

450 PRINT WR$$ 科 名 "和 ,Ri1; PRINT M: FORI 一 1 
TO M:, PRINT KUV$ (TD) : NEXT1I 

470 PRINT CL$ ;j 科 名 ” 

490 GoOTO 110 

程序 名 :AP 

10 Dg$ = CHR$ (4) 

20 OP$ = D$ 十 "OPEN":CL$ = DV$ 十 "CLOSEv 

30 RD$ = D$ 十 "READ;，WRS$ = D$ 十 "WRITE” 

31 INPUT "记录 类 别 (1 一 一 原料 ;2 一 一 成 品 ):";E$ 

32 IFE$=vlr THENE$ 一 " 列 名 ";YUE$ 一 "原料 "; 
GOTO 40 

34 IFE$ = "2" THENE$ = "品名 ";YUE$ = "成 品 " 

40 PRINT CL$;E$ :, PRINT OP$;EV$ 

52 PRINT RD$;E$;i",R";1; INPUTN; DIML$CN),X 
$(N+ 4): FORI= 1TON:INPUTL$(D: NEXTTI; 
PRINT CL$ ;E$ 

60 PRINT OP$ ;YUE$ ji,L120" 

70 PRINTRD$ ;YUE$ ji",R0"; INPUT M;, INPUT HD 

80 PRINT DY 

90 PRINT CHR $ (12) : PRINT "请 输入 第 ";M 十 1;" 条 记 
录 内 容 :" 

92 FORI= 1TON: PRINTL$(D;: INPUTX$(D 

98 NEXT1I 
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820 


INPUT "要 修改 已 经 输入 的 数据 吗 (Y/N)?";YAO$ 
IF YAO0V$ 一 "Y"” GOTO 90 

PRINT WR$;YUE$ ij,R7;IM 十 1:X$(0) 一 0" 
FORI 一 0TON 十 4; PRINTXV$(D;, NEXTI 

IF M = 0THEN HD = 1: GOTO 650 

P 王 HD 

FOR D = 1 TO M 

PRINT RD$ ;YUE$ ;，,R" ;P 
INPUT X$(0): IFX$(0) 
GOTO 580 

P 一 VAL (X$(0)) 

IF M = 1THEN N1 = HD;P = HD:, GOTO 580 
NEXT D 

PRINT RD$ ;YUE$ ji ,RN1 

FORI 一 0TON 十 4:INPUTX9$(TD:NEXTI 
PRINT WR$;iYUE$ ji ,RN1:X 和 (0) 一 STR $ (M 
路) 

FORI 一 0TON 十 4: PRINTX$(D:; NEXTI 
PRINT WR $ ;YUE $ jj，R0" :PRINT M 十 1，PRINT 
HD 

PRINT CL$ ;YUE 

INPUT "还 要 输入 吗 ?";AS $ 

IF AS$ 王 "Y"GOTO 60 

PRINT D$ ;"RUN Hv 

FORI 一 1TON 十 4:INPUTXV$(D: NEXTI 

FORI 一 0TON 十 4:INPUTX$(D): NEXTI 


”0"”THEN N1 王 P， 
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830 


840 
850 


PRINT WR$;iYUE$i，R";P:X$(0) 王 STR 和 9 (M 
十 1) 

FORI 王 0TON 十 4:PRINTXS$(ID:NEXTI 

GOTO 650 


程序 名 :MO 


5 


D$ = 王 CHR 和 $ (4) 


8 OP$ =D 和 $ 十 "OPEN":CL$ 王 D$ 十 "CLOSE" 
9 RD$ =D$ 十 "READ':WR$ =D$ 十 "WRITE 


15 
20 


25 
30 
33 


314 


35 


38 


INPUT "记录 类 别 (1 原料 ;2 一 一 成 品 ):”;A$ 

IFAV$ 一 "1 THEN E$ 一 " 列 名 ":YUE$ 一 "原料 ": 

GOTO 30 

IFAS$ 一 "2 THEN E$ 一 "品名 ":YUE$ 一 "成品 " 

PRINT CL$;E$ :PRINT OP$;EV$ 

PRINTRD$;E$ ;ji",R"il: INPUTN: DIMLYCN 十 5)， 

X9$GN 十 5);,FORI= 1TON:INPUTLS$(D:NEXT 

I: PRINT CL$ ;ES$ 

LS$CN 十 1) 一 "出 库 ":L$CN 十 2) 一 "入 库 ":LS$CN 

十 3) 一 "毛利 ":LS$(CN 十 4) 一 "损耗 ":L$CN 十 5) 

一 “库存 金额 “ 

PRINT OP$ ij 科 名 ":PRINT RD$j 科 名 "7， Ri1: 

INPUT Z: DIMKS$(Z 十 1): FOR 一 1TOZ: INPUT 

K$ (J): NEXT J; PRINT CL$ ;j 科 名 " 

PRINT CL$ :YUE$ ;， PRINT OP$ :YUE$ ;”"L120" 

PRINT RD $ : YUE $ ;”,R0" :INPUT M: INPUT HD， 
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50 
60 
70 
73 
74 
75 
80 
85 
90 
95 
100 
105 


110 
115 


118 
120 
130 
150 


160 
170 
175 
180 


PRINT DY 
PRINT CHR $ 〈12): PRINT "修改 功能 :” 
PRINT "1. 逐 行 逐 列 修改 " 
PRINT 2. 出 库 " 
PRINT "3. 入 库 " 
PRINT "4. 损耗 " 
PRINT "5. 退出 ” 
INPUT "请 选择 ;";K 
IFK< 1ORK>5THEN PRINT CHR$ (7): GOTO 80 
ON K GOTO 95,300,600,800,1000 
GOSUB 1200 
INPUT "个 修 改 的 起 止 行 数 ?“;R1,R2 
IF R1 < 1 OR R2 > M THEN PRINT CHR $ 〈7)， 
GOTO 100 
INPUT ”人 移 修改 的 起 止 列 数 :”;I1,I2 
IF II <0OR 12 > N 十 5THEN PRINT CHRS$ (7)， 
GOTO 110 
P 一 R1l 
PRINT CHR$ (12): FOR I = RI TO R2 
GOSUB 1230 
PRINT D $ : PRINT "请 修改 第 ";I;" 行 内 容 交 到 ?5 
(3 和 (1) 和 7 
FORJ 一 IlL TO I2 
PRINT ; PRINTL$ (J); TAB( 19);" 原 为 ;";X$ (J) 
INPUT " 改 为 ";X$ (J) 
NEXT J; PRINT WRV$ ;YUE 和 $ ,RiT 
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190 
200 


300 
310 
330 
340 
370 


375 
376 


377 
378 


3814 


386 
387 


390 


391 


392 


GOSUB 1300 

X 一 FRE (0): NEXT I; PRINT CL$ ;YUE $ PRINT 
DJ$: GOTO 50 

GOSUB 1200 

INPUT "出 库 物 品行 号 ?" 5 

INPUT CHRV$ (12) 

P = I, GOSUB 1230 

PRINT X$(1);， TAB( 10)" 库 存 结 余 :";5X 和 $(05)， 
PRINT D $ ; PRINT 

INPUT ” 出 库 数 量 ;”;B 

IF VAL (X$(5)) <B THEN PRINT TAB( 10) 库 存 不 
人 够 ": PRINT CHR 和 $ (7): GOTO 375 


INPEUT 价格 浮动 ?";FDS$ 
IFFED$ = "Y" THEN INPUT， 出 
库 价格 :”";DJ 

IF ASV$ 一 "2” THEN INPUT " 用 
户 编 号 :";D; GOTO 387 

INPUT 产品 编号 :”;D 


X$CN 十 1) 王 STR$ (CVAL (X$CN 十 1)) 十 B):;X 
$(5)= STR$ (VAL (X$ (5)) 一 B) 
ML 王 INT (CCVALCXJ$(8)) 一 VAL(X 和 (7)))》* 
B) x* 10” 2 十 0.5)V/10” 2 
X$CN 十 3) 王 STR$ (CCVALCXJ 和 $CN 十 3)) 十 
ML) 
PRINT WR $ ;YUE $ 罗 ，R"iI:， GOSUB 1300:， PRINT 
CL$;YUE$ 
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393 


400 
420 


426 
430 


432 


435 


440 


460 


470 


480 


485 


486 


487 


489 


490 


Cl 一 INT(CCVAL(CXV 和 $(8)) x*B) xx 10 人 2 十 0.5)/ 
10”、 2 

IF A$ 一 "2" THEN 470 

PRINT OP $ jj 成品 "入 ，L120"，PRINT RD $;" 成 
品 "j,R;D: GOSUB 1260 

SU 一 VALI(CX 和 (5)) 十 了 B 

C2 一 INT ((((CL 十 VALCXS$(C7)) xx VALCX 
$(5)))) /SU) x* 10、 2 十 0.5)/10” 2 

X$(5) = STR 和 $ (SU) 

X$CN 十 2) 王 STR (CVALICXS$CN 十 2)) 十 了 B) 
X$(7) 三 STRJ$ (C2) 

PRINT WR $ ;成 品 ";j”" ,Ri;D: GOSUB 1300， PRINT 
cL$" 成 品 "; GOTO 500 

F$ 一 " 院 ":D$ = CHR$ (4): PRINT DS$ ;OPEN"， 
FJ$j,L38" 

PRINT RD $;F$j,R;D:;, INPUT K$(D): INPUT 
Y1; INPUT Y2 

Y1=INT(CYI 十 B) * 10” 2 十 0.5)/10” 2 
IFAV$ 一 "1 THENY2 一 JNT((Y2 十 Cl1) * 10、 
2 十 0.5)/10 ” 2:Y3= INT ((Y2/Y1) x* 10 人 2 二 
0.5)/10 ” 2 ; GOTO 490 

IF FD$ 一 ”"Y" THEN Y2 = INT ((Y2 十 BxDJ) x 10 
^ 2 十 0.5)/10” 2: GOTO 490 

Y2 一 INT((Y2 十 Byx VAL(XV$(08))) x 10、 2 二 
0.5)/10 ” 2 

PRINT WR$ ;F$ ;ji ,R;D:, PRINTK$(D): PRINTYI 
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500 
600 
610 
630 
640 
670 


675 
690 
700 
710 
720 
730 
750 
800 
810 
820 
830 
835 


840 
860 


870 


; PRINT Y2:; PRINT CL$ ;F$ 
X 一 FRE (0): PRINT D$ , GOTO 50 
GOSUB 1200 
INPUT "入 库 物 品行 号 ?5 
PRINT CHR 和 $ (12) 
P 一 I; GOSUB 1230 
PRINT X$4 (1): TAB( 18)" 库 存 结余 :";X$ (5): 
PRINT DV$ 
INPEUT 入 库 数量 :”;C 
X$(5) = STR 和 (VAL (X$(05)) 十 C) 
X$CN 十 2) 王 STR (VALCX 和 $CON 十 2)) 十 C) 
PRINT WRSV$ ;YUEV$ ,Ri;I 
GOSUB 1300 
PRINT CL$ ;YUEV$ 
X 一 FRE (0): PRINT D$ : GOTO 50 
GOSUB 1200 
INPUT "损耗 物品 行 号 光 红 
PRINT CHR$ (12) 
P 一 IT; GOSUB 1230 
PRINT X$(1);， TAB( 10) 帐 面 数量 :";X$(5); 
PRINT D $ ; PRINT 
INPUT " 损耗 数量 ;”;B 
SU 一 INT(CVAL(CXV$(C7)) <* B) * 10” 2 十 0.5)/ 
10” 2 
X$CN 二 14) 王 STR (VALCX$CN 十 4)) 十 
SU):X$(5) 王 STR$ (VAL (X 和 (5)) 一 B) 
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890 

891 

892 

1000 
1200 
1210 
1230 
1240 
1250 
1260 


1270 
1300 
1310 


程序 
10 
15 
20 
30 
31 


32 
35 
37 


PRINT WR$ ;YUE$ ji ,Ri 
GOSUB 1300 
X 一 FRE (0): PRINT D$ : GOTO 50 
PRINT D$ ;"RUN Hv 
PRINT CHR $ 〈12) : PRINT " 现 有 记录 行 数 :”;M 
RETURN 
PRINT D$ :, PRINT CL$ ;YUEV 和 
PRINT OP$ ;YUE$ ,LI120 
PRINT RD 和 $$ ;YUE$ ;”,R";P 
FORJ 一 0TON 十 4:INPUTXV 和 (TI):, NEXTJ;P 一 
VAL (XS$(0)) 
PRINT D$ : RETURN 
FORJ 一 0TON 十 4: PRINTXV$(J):NEXTIJ 
RETURN 


名 :DE 
DJ 和 $ 一 CHR 和 $ (4) 


OP$ = 王 D$ 十 "OPEN":CL 和 4 王 D 和 9 十 "CLOSE" 


RD 和 $ 一 D 和 $ 十 "READ":WR$ =D$ 十 "WRITE" 
INPUT "记录 类 别 (1 一 一 原料 ,2 一 一 成 品 ):”";AS$ 

IF A$ 一 "1 THEN E$ 一 " 列 名 ":;YUE$ 一 "原料 "; 
GOTO 35 


IFAV$ 一 "2 THEN E$ 一" 品名 ":YUE$ = "成 品 " 
PRINT CL$;E$ : PRINT OP$;EV$ 
PRINT OP$;E$ :, PRINT RD 和 $;E$ 和 ,Ri1: INPUT 
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40 
50 


51 


52 
53 
595 
60 
70 


80 
82 
814 
86 
90 
95 
100 
105 
106 
107 
108 
109 
110 


N: DIML$CON),X$CON 十 4),Y$CN 十 4):;:FORI=1 
TO N: INPUTL$ (ID) ， NEXT I, PRINT CL9 ;EV 
PRINT OP$ ;YUE$ ;”,L120" 
PRINT RD $ ;YUE $ ;ji",R0": INPUT M:， INPUT HD， 
PRINT D$ : PRINT CHR $ 〈12): PRINT "功能 设置 :" 
PRINT "1. 删除 " : PRINT "2. 插入 ”": PRINT "3. 整理 " ， 
PRINT "4. 退出 " 
INPUT "请 选择 :";K: IFK<10ORK> 之 4THEN 52 
ON K GOTO 55,255,1000,440 
PRINT “ 现 有 记录 总 数 :”;M 
INPUT " 欲 删 除 的 记录 号 ?7;REC 
IF REC < 1 OR REC > 之 M THEN PRINT CHR $ (7) ， 
GOTO 60 
IF REC <<>> 1 THEN 90 
PRINT RD$ ;YUE$ ;",R";HD 
FORJ 王 0TON 十 4;INPUTXV$(J): NEXTIJ 
HD 王 VAL (X$(0)): GOTO 120 
P 王 HD 
FOR D = 1 TO REC: PRINT RD 和 $ ;YUE$ j" ,RiP 
INPUT X$(0):P 一 VAL (X$(0)) 
IF REC = 1 THEN N1 一 
IFD = REC 一 2 THEN N1 一 P 
NEXT D 
PRINT RD$ ;YUE$;i",R"iP 一 2 
FORJ 一 0TON 十 4:INPUTXS$(J):NEXTIJ 
PRINT WR$ ;YUE$ ;ji ,RNL:X$(0) = STR 和 CP) 
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115 
120 


130 
140 
255 
260 
270 


280 


300 


310 
320 
325 
326 
328 
330 
331 


332 
335 
336 
337 
340 


FORJ 二 0TON 十 14; PRINTX$(J): NEXTIJ 
PRINT WRS$ ;YUE$j，RO" ， PRINT M 一 1，PRINT 
HD 

PRINT CL$ ;YUES$ 

GOTO 40 

PRINT CHR $ 〈12): PRINT " 现 有 记录 行 数 :”;M 
INPUT " 欲 插 入 的 行 号 ?" ;REC 

PRINT D$ : PRINT CHR $ (12): PRINT "请 输入 第 
REC 刀 条 记录 内 容 : 

FOR I = 1 TO N: PRINTLS$(D;: INPUTY$ (0D， 
NEXT 1 

IF REC = 1 THEN X$(0) = HD: HD = M 十 1， 
GOTO 350 

P = HD 

FORD = 1TOREC -1 

PRINT RD$ ;YUE$ ji ,RiD; INPUT X$(0) 

IF REC <<> VAL (X$ (0)) THEN 337 

P = VAL (X$(0)): GOSUB 490 

Xd$(0) = STR$CM 十 1) 

PRINT OP $ ;YUE $ jj ，L120"，PRINT WR $ ;YUE 
$ 7” ,RD 

FOR I=-0 TON 十 4;PRINT X$ (TD :NEXT1I 

IF REC = 2 THEN N1=P 

IFD = REC 一 2 THEN N1 = P 

NEXT D 

Y$(0) = STR$ (P) 
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PRINT WR$;iYUE$i ,RM 十 1 
FORTI 一 0TON 十 4:PRINTYS$(D:, NEXTI 
PRINT WR$ ;YUE$ ;ji",R0" ，PRINT M 十 1， PRINT 
HD 
PRINT CL$ ;YUE$ , GOTO 40 
PRINT CL$ ;YUEV$ 
PRINT D$ ;RUN Hv 
PRINT OP$ ;YUES$ ;ji",L120/ 
PRINT RD$ ;YUE$ ;",R";D 
FORI 王 0TON 十 4:INPUTX$(D:NEXTI 
RETURN 

PRINT CHR 和 $ (12):P = HD 

PRINT OP$ ;YUE$ ji ,L120" 

PRINT OP $ ji” 临 ";”,L120v 

FORD = 1 TO M 

PRINT RD$ ;YUE$;" ,Ri;P:;PL = P, FORJ 一 0 
TON 十 4; INPUT X$ (J): NEXT IJ 

HTAB (16): VTAB(6) :PRINT D 

HTAB (15): VATB (7): PRINT X$ (1) 

P2 王 VALI(CX 和 (0)):X 和 (0) 王 STR 和 (CD 十 1) 

IF D=M THEN X$(0) 王 "0" :HD = 1 

PRINT WR $ ji" 临 ";” ,RD: FORJ 一 0TON 十 4; 
PRINT X$ (J)， NEXT 了 J 

IF X$(0) = "0" THEN P = P1 

P 一 P2 

X = FRE (0): NEXT D 
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1083 PRINT WR $ 六 临 ";”,R0" : PRINT M: PRINT HD 
1090 IF AL$ = 一 "1 THEN PRINT DJ 和 $;DELETE 原料 性 


GOTO 1100 


1091 PRINT D$ ;"DELETE 成 品 " 

1092 ”PRINT D$ ;"RENAME 临 ,成 品 ": GOTO 1200 
1100 PRINT D$ ;RENAME 临 ,原料 ” 

1200 GOTO 50 


程序 名 :TT 


10 
15 


25 


26 


27 


28 
29 


30 
35 
37 
39 


D$ = CHRY$ (14) 
OP$ 一 D$ 十 "OPEN":CL$ = D$ 十 "CLOSE" ;RD 
$ =D$ 十 "READ :WR 和 $ = D$ 十 "WRITE" 
PRINT OP $ ; 科 名 ": PRINT RD $ 入 科 名 "7 ,Ri 1 
INPUT Z: DIMKS$ (Z 十 1) 
PRINT D $ :, INPUT "记录 类 别 (1- 一 原料 , 2 一 一 成 
品 ):";A$ 
IF A$ 一 "1 THEN EV$ 
GOTO 29 
IF A$ ="2" THEN E$ = "品名 ":YUE$ = "成 品 " 
PRINT OP$;E$ : PRINT RD$;E$ji，R"i1: INPUT 
N: DIML 和 $CN 十 5),X$CN 十 5): PRINT CL$;E$ 
PRINT D $ : PRINT CHR $ (12): PRINT "功能 设置 :” 
PRINT "1。 全 部 数据 清 零 " 
PRINT "2。 出 库 数据 清 零 " 
PRINT "3。 月 变数 据 清 零 " 
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" 列 名 " :YUE 和 $ “原料 "， 


40 
41 
43 
44 
45 
50 


70 
80 
90 


100 
110 
120 
130 
140 
145 
160 
165 
190 


230 
240 


260 


PRINT "4。 退 出 ” 
INPUT "请 选择 :”;K 
IFK<1ORK > 之 4THEN PRINT CHR$ (7): GOTO 41 
IFEK 一 4THEN 165 
INPUT "确实 要 清 零 吗 ?";Y$ 
PRINT : IFY 和 $ <>  "Y" THEN PRINT CHR 和 $ (7): 
GOTO 41 
ON K GOTO 80,90,190 
GOSUB 300 
PRINT OP $ ;和 科 名 ": PRINT RD $ 和 科 名 "7，R23;1: 
INPUT Z: FOR J = 1 TO Z: INPUTK$(J): NEXT J; 
PRINT CL$ ;” 科 名 ” 
K$(Z 十 1) 一 “合计 ":F$ 一 " 院 " 
PRINT D$;"OPEN" ;FE$ 和 7 L387 
FEORI 王 1TOZ 十 1 
PRSNT D$ ”WRITE" ;FE$ 和，R75I 
PRINT K$ (ID) : PRINT 0: PRINT 0:PRINT 0 
NEXT 
PRINT D$ ;CLOSE";F$4 : GOTO 30 
PRINT DJ$ ;RUN H7 
PRINT OP $;YUE $j”，L120":，PRINT RD $ ;YUE 
$ 7”,R" 0: INPUT M 
FEORI 王 TOM 
PRINT RD$ ;YUE$;i",R";I: FOR J 王 0TON 十 4， 
INPUT X$ (J): NEXT J 
X$CN 十 1) 一 "0":X$(CN 十 2) 一 "0 
“ 229 ， 


265 X$CN 十 3) 一 ”0":X 和 CN 十 4) 一 ”0" 

270 PRINT D$;” WRITE" ;YUE$ ii,R"5T 

280 FORJ 王 0TON 二 4:PRINTX$(J):NEXTJ 

290 X=FRE(0): NEXT TI: PRINT D$ : GOTO 30 

300 PRINT D$;i"OPEN;IYUE$i ,LI1207: PRINT D$ 3 
WRITE" ;YUE $ ji" ,R0" :PRINT 0: PRINT 0:， PRINT 
D 和 ;CLOSE" ;YUE 

310 RETURN 

程序 名 :KKK 


4 D$4 =CHRY 和 (4) 
7 OP$ =D$ 十 ”OPEN :WR$ 一 D$ 十 "WRITE" 
8 CL =D$ 十 "CLOSE" :RD$ 王 D$ 十 "READ" 


15 
20 


25 


30 
31 


33 


31 


INPUT "记录 类 别 (1 一 一 原料 ;2 一 一 成 品 ):";AV$ 
IFAS$ = "1 THEN E$ 一 " 列 名 ":YUE$ 一 "原料 "， 
GOTO 30 

IF A$ =”2/ THEN E$ 一 "品名 ":YUE$ 一" 成 品 " 
PRINT OP$;EV$ 

PRINT RD$;E$;i",R";1:, INPUT N: DIMLS$CN 十 
5),X$CN 十 5):; FORI 王 1TON:;INPUTLU 和 CD， 
NEXT I: PRINT CL$ ; EV 

L$(0) 天" 头 指针 ":L$CN 十 1) 一“ 自 销 数 ":LS$ICN 
十 2) 一 "入 库 数 ":L$ CN 十 3) =" 毛 利 ":L$CN 十 人 
一 " 损 耗 ":L$(N 十 5) 一" 实 存 额 

IFA$ ="17THENLS$CN 十 1) 一 "出 库 数 " 

230 ， 


35 ”PRINT OP $ ji" 科 名 ”: PRINT RD $;" 科 名 "3 ， Ri 1 
INPUT G: DIMK 和 $ (G 十 1),YL(G),Y2(G): PRINT CL 
$ ;" 科 名 " 

40 PRINT CHR$ (18): PRINTDS$ : PRINTCL$ ;YUE 和 $ ， 
PRINT OP$ ;YUE 和 $ ji,L120" 

50 PRINT RD$;YUE $;ji",，R0": INPUT M: INPUT HD; 
PRINT DV$ 

70 PRINT CHR$ (12): PRINT "查询 方式 :” 

80 PRINT "1. 查 某 行 内 容 " 

90 PRINT "2. 查 某 列 内 容 ” 

92 PRINT "3. 查 自 销 情况 ” 

94 PRINT "4. 查 库 房 情 况 ” 


95 PRINT "5. 退 出 ? 

100 INPUT "请 选择 :”;K 

101 T=0 

105 IFK<10RK>5THEN PRINT CHR$4 (7):, GOTO 
100 


110 ONK GOTO 120,340,700,120,900 

120 GOSUB 1060 

131 IFK 王 4THEN GOSUB 1000:GOTO 140 

132 GOSUB 1300: PRINT CHR$ (12) 

133 CoT =0:T=0:P 王 Rl 

140 P 王 Rl:FORI 王 RITOR2 

150 GOSUB 1140 

160 “COT 王 COT 十 1 

161 X$(7) 王 STR$ CINT ((VAL (X$(7))) < 10” 3 
。， 231。 


162 


1614 


165 
170 


172 


1714 


176 


178 


180 


1814 


187 


189 


190 


十 0.5) /10” 3) 

X$CN 十 5) 一 STR$CINT (C(VAL(XV 有 (5)) x* VAL 
(X$(7))) * 10” 2 十 0.5)/10 ”人 2) 

IFK 一 4THEN PRINT CHR$ (12): HTAB (16):; VTA 
B (5) : PRINT I; GOTO 187 

PRINT CHR $ (12):， PRINT "NO:"i 
PRINTL$(1)3” 273X$$(1); TAB(C 18)35L$$(7)37 7 
$(7) 

PRINTL$(2);7 7;X$(2);， TAB(C 18);L 和 (08)3 7 7 X 
$ (8) 

PRINT L$(3);” 72735X$(03); TAB(C18)5L$CN 十 2) 入 
“5 X$CN 十 2) 

PRINTL9$ (4)i” 73X$(C4); TAB(C 18)5L$CON 十 1)9 
”5X$CN 十 1) 

PRINT LS$ (5);” "3;X$(05); TAB(C 18)5L$CON 十 3)7 
“5X$CN 十 3) 

PRINT LV$ (6);” 7;X 和 (6); TAB(C 18)5LS$SCN 十 4) 祖 
“25X 和 $CN 十 14) 

PRINT LV$(0); 73;X 和 (0); TAB(C 18) 记 下 CN 十 5) 入 
“5 X$CN 十 5): PRINT CHR$ (19) 

X$(8) = 王 STR$ (CINTCCVAL (X$(8))) xx 110、 3 
十 0.5)/10” 3) 

X$CON 十 1) 王 STR (CINT(CVALICXS$CN 十 1)) 
x* VAL (X$(8))) x* 10” 2 十 0.5)/10 ”人 2) 
X$CN 十 2) 一 STR (INT ((VAL (X 和 CN 十 2)) 
x* VAL (X$(7,)) x* 10” 2 十 0.5)/10 ”人 2) 
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195 
205 
210 


2195 
216 


217 


218 


219 


220 


225 


240 


250 


260 


270 


273 


IFK <<> 4THEN 215 
FORJ 一 1T0O5 
SUM(J) = INT ((SUM(J) 十 VAL (X$CON 十 JJ])) * 
10、^ 2 十 0.5) /10” 2: NEXTIJ 
X = FRE (0): NEXT I: IFK = 1 THEN 335 
PRINT CHR $ 〈12): GOSUB 1300，GOSUB 1210，; 
PRINT CHR$ (12) 
PRINT D$ : HTAB (7): VTAB (3): INPUT "是 否 打 
印 ? (Y/N)";Y$ : HTAB (7): INPUT "您 的 姓名 ?";N 
$:， HTAB (7): INPUT "统计 年 月?"; YEA，YUE; 
GOSUB 2100 
PRINT : IFYV 和 $ = "Y" THEN POKE 1659,6，POKE 
191 5,7: GOTO 220 
PRINT CHR$ (18): GOSUB 1300 
GOSUB 2000: GOSUB 2050 
PRINT TAB( 6); 物 品 品种 :";R2 一 R1 十 1 
PRINT TAB( 6) 多 出 库 金 额 :";SUM(1);， TAB( 30) 纪 
(元 六 
PRINT TAB( 6) 罗 入 库 金 额 :";SUM(2); TAB( 30)37 
(元 ) 
PRINT TAB( 6); 毛 利 :"SUM(3); TAB( 30)3; 
(元 ) 
PRINT TAB( 6);i" 损 耗 :;";SUM(4); TAB( 30)j7 
(元 )7 
PRINT TAB( 6) 密实 存 金额 :";SUM(5); TAB( 30)37 
(元 )7 

。233 。 


722 


GOSUB 2050: GOSUB 2080 

POKE 1659,0:, PRINT CHR $ 〈19) 

PRINT CHR $ (12): GOTO 40 

PRINT CHR $ (12): PRINT " 列 序号 ;0" 和) 一 "3N 十 1 
INPUT ” 欲 查 列 号 ?7 ;IT 

IFIT<0oRIT >N 二 3THEN PRINT CHR$ (7)， 
GOTO 340 

GOSUB 1060 

GOSUB 1300: PRINT CHR$ (12) 

PRINT " 行 号 "; TAB( 9);L$ (1); TAB( 20);L$ (IT) 
COT 一 0:T 王 0:P=RIl 

FOR IT 一 RI TO R2 


GOSUB 1140 

GOTO 410 

IFX$(IT) ="0/ORX$COT) 二 ”7 THEN 540 
PRINT IT; 号 "; TAB( 9);X$(1);， TAB( 20);X$ (IT) 


COT 一 COT 十 1 

IF INT (COT/10) <<> COT / 10 THEN GOTO 540 
PRINT CHR$ (19): PRINT CHR 和 $ (12) 

X 王 FER(0): NEXT I, PRINT CHR $ (19) 

GOSUB 1210: GOTO 40 

PRINT CHR$ (12): VTAB (4): HTAB (7): INPUT， 
统计 年 月 :";YEA,YUE 

GOSUB 2100 

HTAB (7) : INPUT "您 的 姓名 :";NV$ 

HTAB (7): INPUT "是 否 打印 ?2;Y$ 
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725 


727 
728 
730 


740 
742 
745 


746 
760 


770 
775 
776 
780 
785 
790 
795 
800 
810 
900 
1000 


1020 


PRINT ; IFYV 和 4 = "Y" THEN POKE 1659,1，POKE 
1915,0: POKE 1787,2 
GOSUB 2000 
GOSUB 2050 
PRINT OP $ j 科 名 ": PRINT RD $j" 科 名 ”3 ,Rili 
INPUT G: PRINT CLS$ ; 科 名 " 
S1 一 0:S2=0 
F$ 一 " 院 ":; PRINT D$;7OPEN"3F$ 和，L387 
PRINT 部门"; TAB( 10);" 累 计 ( 斤 )”; TAB( 26)" 累 
计 ( 元 六 
GOSUB 2050 
FORJ 1TOG: PRINT D$i"READ";F$i ,RiJ; 
INPUT K$ (J),Y1(J),Y2(J) 
PRINT K$ (J); TAB( 10);Y1(J);， TAB( 26);Y2(J) 
S1 一 INT((CSI 十 YIGOD)x* 10” 2 十 0.5)7/10” 2 
S2 一 INT ((S2 十 Y2(J)) x* 10 人 2 十 0.5)/10 人 2 
NEXT J 
GOSUB 2050 
PRINT "会 计 " ;TAB(10);S1;TAB(26);S2 
GOSUB 2050 
GOSUB 2080 
PRINT CHR$ (19) :GOTO 40 
PRINT CL$ ;YUE$ ; PRINT D$ ;RUN HY 
VTAB (11):， PRINT "在 "; VTAB (11):， HTAB (3); 
PRINT " 查 " 
VTAB (11): HTAB (5): PRINT " 找 ”: VTAB (11)， 
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1030 


1040 


1050 
1060 
1062 


1065 
1070 


1080 
1140 
1160 
1170 
1180 


1190 


1200 
1210 


1216 
1220 


HTAB (7) : PRINT ”中 ， 
VTAB (11): HTAB (9):， PRINT ".": VTAB (11); 
HTAB (11): PRINT "请 ” 
VTAB (11): HTAB (13): PRINT " 稍 " : VTAB (11)， 


-HTAB (15): PRINT " 候 ": VTAB (11): HTAB (17)， 


PRINT ”!7 
RETURN 

PRINT CHR $ 〈12): PRINT " 现 有 记录 行 数 :"M 
IFK = 4THEN INPUT " 侈 统计 的 起 止 行 号 :"; Rl， 
R2: GOTO 1070 

INPUT " 欲 查 询 的 起 止 行 号 :”;R1,R2 

IFR1 < 1OR R2 之 MTHEN PRINT CHRV$ (7): GOT 
O 1060 

RETURN 

PRINT D$ : PRINT CL$ ;YUES$ 

PRINT OP$;iYUE$ ji ,L1207 

PRINT RD$;YUE 和 $ 7 ，R7;P 

FORJ 一 0TON 十 4:INPUTXV 和 (JI):NEXTJ:P = 
VALCX$(C0O) 

T 一 T 十 1:LV 一 100x* (INTICT/CR2 一 R1 十 1) x 
10^ 2 十 0.5)/10”、2) 

PRINT CL$ ;YUE$ : RETURN 

PRINT CHR$ (12): VTAB (5):， PRINT TAB( 12) 包 
应 查 记 录 :"”;R2 一 R1 十 ! 

VTAB (6): PRINT TAB〈 12); 实 查 记录 :”;T 
VTAB (7): PRINT TAB( 12);i 查 找 率 ;" ;LV3 和 07 入 
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1240 
1300 


1310 


1330 


1340 
2000 
2010 
2020 
2050 


2060 
2080 
2085 
2090 
2100 
2110 
2120 
3011 


PRINT CHR $ 〈19) :RETURN 

VTAB (11): PRINT " 按 ”:VTAB (11):， HTAB (3); 
PRINT " 任 " 

VATB (11): HTAB (5):， PRINT ” 意 ”: VTAB (11) 
HTAB (7) : PRINT " 键 " 

VTAB (11): HTAB (9)， PRINT ” 继 ”: VTAB (11 ) ; 
HTAB (11):， PRINT " 续 ”: VTAB (11) :HTAB (13) ， 
PRINT " 进 " ; VTAB (11): HTAB (15): PRINT ” 行 " 
RETURN 

PRINT TAB( 4) DWM$ ;KFM$ ;库房 报表 " 

PRINT TAB( 12)YEA;" 年 ";YUE;" 月 " 

RETURN 

FOR JJ = 1 TO 14:， PRINT "一 "; :NEXT J，PRINT 
1 

RETURN 

PRINT TAB( 20);" 会 ” 计 :”"5NS$; 

POKE 1659,0 

RETURN 

HTAB (7): INPUT "单位 名 称 :”";DWMV 

HTAB (7) : INPUT "库房 名 称 :”;KFM$ 

RETURN 

PRINT RD$ ji" 科 名 "jj,R"il1: INPUT N: DIMKV$CN 
十 1):INPUTK$(G):NEXTI: PRINT CL$ji 科 名 " 
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程序 名 :PP 

7 D$ =CHRS$ (4) 

8 OP$ =Dd$ 十 "OPEN':CL$ =D 和 十 "CLOSE" 
9 WRV$ =D$ 十 "WRITE" :RD$ 王 DS$ 十 "READY 
10 INPUT "记录 类 别 (1 一 一 原料 ,2 一 一 成 品 ):";ES$ 


12 IFE$ ="1" THENEV$ 一 7" 列 名 ":YUE$ 一" 原料 ”， 


GOTO 16 


14 IFE$ = "2 THEN E$ 一 "品名 ":YUE$ = "成品 


16 PRINT CL$;E 和 4 : PRINT OP$;EV$ 


25 PRINT RD$;E$i,R";1: INPUT N;: DIMLYICN 十 


5),X$CN 十 5) 


30 FORI 王 1TON:INPUTL$(I): NEXT I， PRINT CL 


$;EV 
40 PRINT : PRINT OP$ ;YUE$ ji ,L120" 
50 PRINT RD$;YUE 和 $ ii”，,R0" 
60 _ INPUT M:; INPUT HD: PRINT DY 
70 FORJ 王 0TO5:SUM(J) 一 0:; NEXTIJ 
80 PRINT CHR$ (12): PRINT "打印 功能 :" 
85 PRINT "1。 打 印 全 部 记录 ” 
87 PRINT "2。 打 印 盘 存 数 据 ” 
89 PRINT "3。 打 印 采购 清单 
90 PRINT "4。 退 出 ” 
92 INPUT "请 选择 (1 一 4) :”;K 


94 IFK<10ORK>>14THEN PRINT CHR$ (7): GOTO 92 


96 ONK GOTO 100,550,850,1070 
100 GOSUB 2000 
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132 
135 


138 


139 
145 


150 


155 
157 
160 


165 
170 


171 


172 


175 


CoT = 0 
POKE 1659,6: POKE 2043,120: POKE 1787,0; POKE 
1915 ,2 
GOSUB 2610 
POKE 1659,! 
PRINT "记录 号 "; TAB( 8);L$(1);， TAB( 26);L 
$(2); TAB( 40);L$(3); TAB(C 16);L 有 (4); TAB( 
26) 包 库存 数量 "; 
PRINT SPC( 6); 出 库 数量 "; SPC(C 4)jL$ (7);SPC( 
6);5L$(8); SPC(C 6); 出 库 金 额 "; SPC( 4) 交 入 库 金 
额 "; 
PRINT SPC( 4); 毛 利 "; SPC( 4);" 损 耗 ”; 
SPC( 4); 实 存 金额 "“; SPC( 4); 头 指针 ” 
POKE 1659,6: GOSUB 2630: POKE 1659,1 
P = 1: FORI 一 1TOM 
PRINT RD$;YUE$i,R";P;P1 一 了 
FORJ=0TON 十 4:INPUTX9(I):, NEXT J:P 一 
VAL (X$(0)):X$(6) 王 X$CON 十 1):SUM(0) = 
SUM (0) 十 VAL (XV$(6)):SUM(6) = SUM(6) 十 
VAL (X$ (5)) 
X$(7) =STR 和 $ (CINT ((VAL ICX$(7))) xx 10” 3 
十 0.5)/10” 3):X$(8) =STRS$ (INT (CCVAL (CX 
$(8))) * 10” 3 十 0.5)/10”3) 
FORJ=7TON 十 4:Xq(J) 一 STR 和 (INT ((CVAL 
(X$(I))) x* 10” 3 十 0.5)/10、 3):NEXTIJ 
GOSUB 400 
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180 


215 


220 


250 
260 
265 
270 
275 
278 
280 


289 


290 


PRINT P1; TAB( 8);X$ (1);TAB( 26);X$(2); SPC( 
15 一 LEN (X$(2)));X$(3); TAB( 16);X$(4); 
TAB( 26);X$ (5);SPC(14 一 LENCX 和 $(5)));X$(6); 
FOR 本 一 7 TO N 

PRINT SPC( 12 一 LEN (STR$ (VAL(CX$(G 一 1))) 
));X$(J); :NEXT J 

PRINT SPC( 12 一 LEN (STR 和 $ (VAL(X$CN))))); 
X$CN 十 1); 

PRINT SPC( 12 一 LEN (STR 和 (VAL (X$CN+ 
1)))));X$CN 十 2) 

FORJ 王 N 十 3TON 十 5:PRINTSPC(C12 一 LEN (人 
STRS$ (VAL (X$(J 一 1)))));X$(J) :NEXT J， 
PRINT SPC( 12 一 LEN (STR 和 9 (VAL(X 和 $(J 一 
1)))))37”75P 

COT 一 COT 十 1 

IF INT ( COT/80) <<> COT / 80 THEN 270 

PRINT CHR$ (19) 

又 一 FRE (0): NEXTI 

GOSUB 500 

POKE 1659,6: GOSUB 2630: POKE 1659,5 

PRINT " 合 计 "; TAB( 8); 7 一 ”3TAB( 26) 和 一 "; TAB 
(40); 一 "; TAB( 16); 一 "; TAB( 26);SUM(6);SPC 
(14 一 LEN ( STR $ (SUM(6))));SUM(0); 

PRINT SPC( 12 一 LEN (STR 和 $$ (SUM(0))))3 和 7 一 4; 
SPC( 10);7 一 ”; 

PRINT SPC( 10);SUM(1); 
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291 


292 


293 


2914 


315 


320 


330 


400 


405 


410 


440 


445 


450 


460 


470 


480 
485 


PRINT SPC( 12 一 LEN(C STR 和 $ (CSUM(1))))7; SUM 
(2); 
PRINT SPC( 12 一 LEN( STR 和 $ (CSUM(2)))));SUM 
(3); 
PRINT SPC( 12 一 LEN( STR 和 $ (CSUM(3))))); SUM 
(4); 
PRINT SPC( 12 一 LEN(C STRV$ (CSUM(C4)))));SUM 
(5); 
POKE 1659,6: GOSUB 2630: POKE 1659,5 
PRINT : GOSUB 2500 
GOTO 1000 
X$CN 十 1)= 王 STR (CINT ((VAL (CXS$CN 十 1)) 
x* VAL (X$(8))) * 10” 2 十 0.5)/10” 2) 
SUM(CN 十 1) =INT (CSUMCN 十 1) 十 VALCXY 和 CN 
十 1))) * 10” 2 十 0.5)/10” 2 
X9$CGN 十 2) 王 STR 和 (CINTCCOVALIXSCN 十 2)) 
x* VAL (X$(7))) x* 10” 2 十 0.5)/10” 2) 
XJ$CN 十 5) 一 STR 和 (INT (C(VAL (XV$$(05))》 x* 
VAL (X$(7))) x* 10” 2 十 0.5)/10” 2) 
SUM(5) 王 SUM (5) 十 VAL(X9$CN 十 5)) 
FORJ 一 1TO1 
SUM(J) = INT ((SUM(J) 十 VAL (XS$CN 十 J))) * 
10” 2 十 0.5)/10” 2: NEXT J 
FOR J 王 0 TO N 十 4 
IFEX$(J) 一"0" THEN X 和 $$(J) == "一 7 
NEXT J 
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490 
500 
505 
510 
520 
530 
550 
560 
590 


595 
600 
610 
620 


630 
640 


650 


660 
670 
680 


RETURN 

FOR J 王 0TO14 

SUM$ (J) 王 STR 和 $ (SUM(J)) 

IF SUM$ (J) 一 "0" THEN SUM$ (J) 一 "一 7 
NEXT J 

RETURN 

GOSUB 2000 

GOSUB 2600 

PRINT "记录 号 "; TAB( 8);L$(1);， TAB( 26) 包 
$(2); TAB( 40);L$(3); TAB( 16);L$(4); TAB( 
26);L$(5); SPC(C 10);L$(7);SPC (6); 实 存 金额 ， 
GOSUB 2640 

P 王 HD; FORI 王 1TOM 

PRINT RD$;iYUE$i" ,R";P:P1 一 P 

FORJ 王 0TON 十 4:INPUTX$h(J):， NEXT J:P = 
VAL (XV$(0)) 

GOSUB 400 

PRINT P1; TAB( 8);X$(1); TAB( 26);X 书 (2); SPC 
( 15 一 LEN (X$(2)));X$(3);， TAB( 16);X$ (4); 
TAB( 26);X$ (5); SPC( 14 一 LEN (XJ 和 (5)));X 
$(7); 

PRINT SPC( 12 一 LEN (STR 和 $ (VAL(X$(7))))); 
X$CON 十 4) 

COT 一 COT 十 1] 

IF INT (COT/80) <<>> COT /80 THEN 690 

PRINT CHR $ (19) 
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690 
700 
705 
710 


720 
725 
730 
850 
870 
890 


895 
900 
910 
920 


930 
940 


960 
970 
990 


X 王 FRE (0):; NEXT I 

GOSUB 500 

GOSUB 2640 

PRINT "合计 "; TAB( 8); 一 "; TAB( 26) 一 "3TAB( 

40) 入 一" TAB( 16)ji 一"; TAB( 26) 和 一 "和 SPC( 

12) 记 一 

PRINT SPC( 10);SUM(4) 

GOSUB 2640: GOSUB 2500 

GOTO 1000 

GOSUB 2000 

GOSUB 2600 

PRINT ”记录 号 "; TAB( 8);L$(1);， TAB( 26);L 

$(2); TAB( 40);L$(3); TAB( 16);L$(C4);TAB( 

26);" 库 存 数 "; SPC( 18); 计 划 购 买 " 

GOUSB 2640 

P = HD: FOR I= 1TOM 

PRINT RD$ ;月 ,RiP;P1 一 P 

FORJ 一 0TON 十 4;INPUTX 和 (IJ); NEXT J:P 一 

VAL (X$(0)) 

IFVAL (X$(5))> VALCGX$ (6)) THEN 990 

PRINT P1; TAB( 8);X$(1);TAB(26);X$(2);， SPC 

(15 一 LENCGX$(G2)));3X$(3); TAB(16);X$(C4); 

TAB( 26);X$(5) 

COT = COT 十 1 

IF INT (COT/80) > COT/V80 THEN 990 

X = FRE (0): NEXT I:GOSUB 2640:GOSUB 2500 
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1000 
1050 
1060 
1070 
1080 


1110， 


2000 
2005 
2010 
2020 
2022 
20214 
2030 


2060 
2500 


2510 


2530 
2600 
2605 


2610 


2620 


POKE 1659,0: PRINT D $ : PRINT 

INPUT "还 要 打印 吗 (Y/N)?";H$ 

IFHV$ 一"Y" THEN 70 

POKE 1659 ,0 

PRINT CL$ ;YUEV$ 

PRINT D $ ;"RUN Hv 

PRINT CHR $ (12): INPUT "单位 名 称 ?";DAV$ 
INPUT "库房 名 称 ?";KUH$ 

INPUT "您 的 姓名 ?";NAS$ 

INPUT "打印 时 间 :年 ?";YEA 

INPUT 月 ?2";YUE 

INPUT 日 ?7 ;DA 

PRINT CHR$ (12): VTAB (6): HTAB (6): PRINT 
准备 好 打印 机 后 按 任 意 键 ": PRINT CHR$( 19) 
RETURN 

IF K 一 1 THEN PRINT TAB( 140);" 会 计 :"; NA $ ; 
GOTO 2530 

PRINT TAB( 76);" 会 计 :";NAS$ 

RETURN 

POKE 1659,1: POKE 2043 ,80 

IF K = 3 THEN PRINT TAB(26);DA$ ;KU $ ;库房 
购物 清单 ": PRINT :; GOTO 2620 

PRINT TAB( 30) ;联合 饲料 厂 ";KU $ 刀 库房 库存 物 
品 清单 " 

PRINT TAB ( 29); 一 "; :FOR 本 一 1 TO 15:， PRINT 
"一 ";:; NEXT J:; PRINTVY 
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2625 
2630 


2640 


2650 


程序 


PRINT TAB( 40);YEAj" 年 ";YUEj" 月";DAi 日" 
IF K = 1 THEN PRINT "一 ";: FOR 丁 一 1 TO 46， 
PRINT "一 "; :NEXT J ; PRINT "" ; GOTO 2650 
PRINT "一 "; ，FOR J 丁 二 1 TO 46:， PRINT "一 "; ; 
NEXT J;, PRINT ”，" 
RETURN 

名 :JSDJ 


5 PRINT CHR $ (4): PRINT CHR 和 $ (12) 


10 
15 
20 
30 
40 
50 
60 


程序 


INPUT "总 金额 (元 )?" 条 

IFJ 一 0THEN 60 

INPUT "总 数量 ( 斤 )?";S 

D 一 INT(OJ/S)x1l0”` 2 十 0.5)/10 ”2 
PRINT "单价 = ?”;Di (元 ) 

PRINT CHR$ (19): GOTO 5 

PRINT CHR (4);"RUN H7 


名 :JSZS 


3 DIMSV$(1000) 
5 PRINT CHRS$ (4): PRINT CHR 和 $ (12) 
8 PRINT "加 法 计算 ( 按 0 结束 ) 


10 
20 
30 


S 一 0:;Z 一 0:T 一 0:Z1 一 0 

Z 一 Z 十 1| 

PRINT "NO:";Z;j"， ";: INPUT "数据 ?";S:S$(Z) 
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STRS$ (S) 


IFEX$ 一”"Y" THEN 60 
IFS 王 0THEN 52 
GOTO 20 

Z1=2Z 一 1 

PRINT "数据 个 数 =";Z1 


T 一 0:FORJ=1TOoOZl:T=T 二 +VAL(S$())， 
NEXT JJ 

PRINT "总 计 =";T 

PRINT CHR$ (4): INPUT "要 显示 原始 数据 吗 ?";D 4 ; 
IFD$ <<>，"Y" THEN 77 


76 GOSUB 120 

77 PRINT CHRV$ (4): INPUT "要 修改 原始 数据 吗 ?";XS$ 
78 IFX$ 王 "Y"” THEN 160 

80 PRINT CHR$ (4): INPUT "要 增加 原始 数据 吗 ?";J$ 
81 IFJY$ ="Y" THEN Z 一 Z1: GOTO 20 

82 PRINT "总 计 王 ”3;T 

85 PRINT CHRV$ (4) : INPUT "还 要 计算 吗 ?";Y$ 

90 IJFYV$ <> "Y" THEN PRINT CHR $ (4);"RUN Hv 
100 GOTO 5 


120 FORJ 王 1TOZ1l 

130 PRINT (5Ji) "35S 和 $(J) 

135 IF INT (J/9) <<>> J/9 THEN 140 
138 PRINT CHR$ (19) 

140 NEXT J 

150 RETURN 
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160 PRINT CHR$ (4); INPUT "要 修改 数据 的 序号 ?";Z 
170 PRINT Z;" 号 数据 原 为 :";S$ (Z) 
190 GOTO 30 
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第 五 草 “人事 档案 管理 系统 


本 软件 最 适 于 医院 人 事 科 使 用 ,可 以 方便 地 打印 出 全 院 
职工 的 各 种 统计 报表 ,及 其 他 所 需 报表 ,操作 简单 ,使 用 方便 ， 
已 在 医院 正常 使 用 五 年 多 ,受到 各 方 人 士 欢迎 。 

(一 ) 建 立 随机 文件 

首先 建立 并 运行 以 下 程序 ,建立 A.B 两 个 随机 文件 ; 


A:10 
20 
30 
40 
50 
60 


INPUT "文件 名 :";FS$ 

D$ 王 CHR$(4) 

PRINT D$;， ”OPEN";F$i"，L200" 
PRINT D$ "WRITE";F$ 7 ，RO" 
PRINT 0 

PRINT D$ ;"CLOSE"; F$ 


RUN( 回 车 ) 
文件 名 :项 目 ( 回 车 ) 


B:10 INPUT "文件 名 :”"; F$ 
20 DJ$ = 一 CHR$(4) 
30 PRINT DJ 和 $ : "OPEN" :FE$j,L120" 
40 PRINT D$ ,”"WRITE"，F$ 和,ROv 
50 PRINT 0 
60 PRINT DJ$ ; "CLOSE";，F$ 
RUN ( 回 车 ) 
文件 名 : 人 事 档案 ( 回 车 ) 
(二 ) 启 动 
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开机 后 首先 回答 口令 :任意 击 数字 键 4 次 , 若 4 次 数字 键 
总 和 等 于 8, 则 视 为 口令 回答 正确 。 例 : 


8000 一 一 正确 。 

1313 一 一 正确 。 

9000 一 一 错误 。 

1121 一 一 错误 。 

正确 回答 了 口令 后 系统 立即 进入 主 控 模 块 。 
三 ) 主 菜单 功能 

1. 定义 项 目 5. 记录 排序 
2. 增添 记录 6. 查询 记录 
3. 修改 记录 7. 打印 文件 
4. 删除 插入 8. 结 东 
(四 ) 定 义 项 目 


在 主 菜单 提示 下 键入 “1 后 即 进行 初始 化 操作 ,定义 项 目 
名 称 。 

例如 ; 

姓 名 ,性 别 ,年 龄 , 籍 贯 ,出 生日 期 ， 
0 等 ,总 计 18 个 项 目 名 称 , 根 据 本 单位 管理 需要 自行 设 定 ， 
每 个 项 目 由 2 一 4 个 汉字 组 成 , 占 8 个 字符 宽度 ,不 足 8 个 字 
符 时 ,汉字 之 间 以 空格 补足 8 个 字符 。 

待 全 部 定义 完毕 ,系统 自动 将 项 目 名 称 存 盘 ,然后 返回 主 
菜单 ,以 后 一 般 不 再 定义 。 

(五 ) 增 添 记录 

在 主 菜 单 捍 示 下 键入 “2” 后 , 即 可 按 屏幕 提示 ,反复 逐 人 
逐 项 输入 姓 “名 ,性 “ 别 , 年 龄 , 籍 贯 ,出 生日 
期 ,…… 等 等 人 事 数 据 ,每 输入 完 一 人 数据 ,系统 向 您 提示 是 
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否 修改 ,回答 “Y? 光 标 立 即 返回 姓名 处 等 待 修改 ,回答 “N? 系 
统 立 即将 已 输入 的 数据 存 入 磁盘 ,不 再 输入 时 按 “RETURN， 
键 返回 主 菜 单 。 

(六 ) 修 改 记 录 

在 主 菜单 提示 下 键入 “3? 后 ,系统 首先 询问 口令 :在 键盘 
上 正确 回答 “1401F? 后 方 可 进入 修改 状态 ,可 进行 某 行 某 列 
修改 和 对 年 龄 统一 加 “1? 等 修改 操作 。 对 年 龄 统一 加 ”12 的 修 
改 操 作 仅 在 每 年 年 初 进行 一 次 。 

修改 时 屏幕 出 现 提 示 : 

请 修改 第 N 项 内 容 ( 姓 “ 名) 

(项 目 名 ) : 原 为 

改 为 

(七 ?删除 记录 

在 主 菜单 提示 下 键入 “4? 后 系统 进入 删除 模块 ,可 按 屏幕 
提示 进行 删除 操作 。 

〈 八 ) 记 录 排 序 

在 主 菜单 提示 下 键入 “5?” 后 系统 进入 排序 模块 ,可 按 屏 莫 
提示 进行 排序 操作 。 

( 九 ) 查 询 记 录 

在 主 菜单 提示 下 键入 “6” 后 ,进入 查询 状态 ,根据 屏幕 提 
示 可 分 别 进行 按 记录 序号 查询 、 按 项 目 序 号 查询 . 按 某 项 内 容 
查询 、 按 任意 组 合 查询 .统计 技术 职称 .统计 毕业 学 历 等 查询 
操作 。 

(十 ) 打 印 报表 

在 主 菜单 提示 下 键入 “7”, 进 入 打印 模块 。 可 按 屏幕 提示 
进行 打印 操作 。 
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(十 一 ) 退 出 

在 主 菜单 的 提示 下 键入 “8”, 屏 幕 显示 “请 关机 ,再 见 !”， 
此 时 若 要 再 作 其 他 操作 , 则 必须 关机 后 重新 启动 。 

人 事 档 案 管理 系统 流程 图 如 图 5. 1 所 示 。 


图 5. 1 人 事 档 案 管理 系统 流程 图 


人 事 档 案 管理 系统 程序 清单 ; 
程序 名 :ABC 
5 HOME : PRINT CHR$ (18): PRINT CHR $ 〈4);"PR 提 


4 


37 : PRINT CHR$ (4);7” RUN H7 
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程序 名 :H 


1 
15 
20 


30 
40 
50 
60 


70 


80 


90 


99 


100 


1014 


105 


106 
108 


109 


HOME ;, PRINT CHRS$ (18) 
DIM XU$ (35):;D$ = CHRJ$ (4) 
PRINT TAB( 6);: FOR JJ 一 0 TO 11: PRINT "外 
NEXT 
PRINT : PRINT TAB( 6)j) 急 ";SPC( 20) 和 合 
PRINT TAB( 6) 密令 人 事 档案 管理 系统 镶 ” 
PRINT TAB( 6) 和 售 ";SPC( 20) 和 @@" 
PRINT TAB( 6);: FOR 丁 一 0 TO 11:; PRINT "人 @@" 
NEXT 
PRINT : PRINT :PRINT TAB( 6); 四 川 省 大 佛 市 红 十 
字 会 医院 " 
PRINT : PRINT TAB( 11); 一 九 八 八 年 八 月 " 
FOR IT 一 1TO 3000: NEXT : PRINT : PRINT 
忆 =0:S =0 
PRINT CHR $$ 〈12 ):， PRINT :， PRINT :， PRINT ， 
PRINT :PRINT : PRINT TAB( 15); 口 令 ?7 
S 一 S+1: FORI 王 1TO4:GETA 和 $(CD:B 一 B+ 
VAL (A$(ITD)): NEXT1I 
C$ = STR 和 $ (B) 
IFC$ 一 CHR$ (56) THEN GOTO 110 
IF S 一 3THEN PRINT CHR $ (12): PRINT : PRINT， 
PRINT : PRINT : PRINT : PRINT TAB( 12) "口令 不 
对 ,停止 运行 ,": PRINT CHR 和 $$ (19): GOTO 260 
GOTO 100 
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110 
121 

12、 

127 
130 
1140 
150 
160 
170 
180 


190 
200 
210 
220 
230 
240 
250 
260 


265 
270 
290 
300 


310 


PRINT CHRS$ (12) 
PRINT "处 理 方式 :" 
妆 INT 

PRINT "1. 定义 项 目 
PRINT "2. 增添 记录 
PRINT "3. 修改 记录 
PRINT "4. 删除 记录 
PRINT 


5. 记录 排序 ” 
6. 查询 记录 ” 
7. 打印 文件 ” 
8. 退 出” 


INPUT "请 选择 (1 一 8):";K 
IFK<1O0ORK>8THEN PRINT CHR 和 (7): GOTO 


170 


ON K GOTO 270,200,210,220,230,240,250,260 


PRINT DJ$;"RUN APY 
PRINT D$;i7RUN MOY 
PRINT D$;7"RUN DE7 
PRINT DJ 和 $i7"RUN TTY 
PRINT D 和 $$ ;"RUN KKKY7 
PRINT DJ$;i"RUN P P7" 


PRINT CHR $ 〈12)” PRINT : PRINT 
TAB( 12) 刀 请 关机 ,再 见 ." 

PRINT CHR $ (19):， GOTO 260 

OP$ 王 D4$ 十 OPEN:CL$ 一 D 和 $ 十 "CLOSE" 
RD 和 =D 和 4 十 READ :;WR 和 =D 和 $ 十 "WRITE" 
PRINT CHR $ (12): PRINT "定义 项 目 名 称 (共计 18 


项 ) 
FOR TIT 王 0TO17 


; PRINT : PRINT 
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320 
330 
340 
350 
360 
370 
380 


PRINT "第 ";I 十 1;" 项 ";:; INPUT XU 和 (ID 
NEXT1I 

PRINT OP$ ;项 目 "j,L200/ 

PRINT WR $ ;" 项 目 " ;7 ,Ri1 

FORIT= 0TO 17;, PRINT XU 和 $(D : NEXT IT 
PRINT CL$ ;项 目 " 

GOTO 110 


程序 名 :AP 


20 
30 
40 
50 
51 
52 


60 
70 
80 
90 
92 
95 
98 
450 
460 


DIMXS$(17),XU$ (17) 
DY$ =CHR (14) 
OP 和 $ =D$ 十 OPEN:CL$ = Dd$ 十 "CLOSE" 
RDS$ 王 Dd$ 十 "READ":WR 和 $ 王 D 和 $ 十 "WRITE" 
PRINT OP 和 $ ;项 目 ";",L200" 
PRINT RD $;" 项 目 "j ,Ri 1 FOR TI 一 0Tol17 
INPUT XU$ (ID) ， NEXT I;PRINT CL$ ;项 目 / 
PRINT OP$ ;" 人事 档案 ";j”,L120" 
PRINT RD $ ,人 事 档 案 ";",R0" :INPUT M 
M 一 M 十 1:; PRINT D 和 :PRINT CHR 和 $ (12) 
PRINT "请 输入 第 ";M;" 人 的 记录 内 容 ( 按 0 键 结束 ):， 
FOR I = 0To 17:, PRINT XU 和 $ (TD;,: INPUT X$(D 
IFX$(0) = "0 THEN 520 
NEXT IT 
INPUT "要 修改 已 经 输入 的 数据 吗 (Y/N)?";YAO$ 
IF YAOV$ 一 "Y" GOTO 90 
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470 
480 
500 
510 
520 
530 


PRINT WR $ ;人 事 档案 ,R" ;M 

FORIT 二 0TO 17:, PRINTX$(ITD): NEXT1 
PRINT WR $ ;j” 人 事 档案 ,R0" : PRINT M 
GOTO 80 

PRINT cL$ ;人 事 档案 " 

PRINT D $ ;”"RUN Hw 


1000 NEW : END 


程序 名 :MO 

2 “REM MODIFY 

5 DIMX$(17),MC$ (17):D$ 一 CHRS$ (4)7 

13 S=0 

14 S =S 十 1， PRINT CHR 和 $ (12):， PRINT :PRINT ; 
PRINT T:; PRINT :; INPUT ”口令 ?";KL$ 

1]5 IFKL 和 $ 一 "1401F" GOTO 28 

16 IFKL$ 一 > "1401F" THEN PRINT CHR $ (7) : PRINT 
CHR $ (12 )，PRINT : PRINT :PRINT :，PRINT ， 
PRINT "口令 不 对 几 

17 IFS<3GOTO 24 

18 IFS = 3THEN PRINT CHR 和 $ (12): PRINT : PRINT ; 
PRINT : PRINT ”对 不 起 ,您 不 能 修改 记录 以 : GOTO 
330 

24 FORI 王 1TO1000: NEXT I: GOTO 14 

28 OP 和 =D 和 $ 十 "OPEN" :CL$ 王 DV$ 十 "CLOSE 

30 RD$ =D$ 十 "READ":WR 和 9 AM DV$ 十 ”WRITE" 
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32 PRINT OP 和 $ ;项 目 "j,L2007 
33 “PRINT RD $;” 项 目 ";j"， Ri; 1:， FOR I 一 0ToODY 
INPUT MC$ (TD): NEXT I: PRINT CL$ ;7 项目" 
40 PRINT OP$ ;人 事 档 案 ,L1207 
45 “PRINT RD$ ;人 事 档 案 ,R0" : INPUT M:; PRINT DY 
50 PRINT CHR$ (12) : PRINT "修改 方式 : 
60 PRINT "1. 逐 人 逐 项 修改 文件 内 容 ” 
70 PRINT "2. 对 年 龄 统一 加 ”127 
75 PRINT "3. 退出 " 
80 INPUT "请 选择 ;”;K 
90 ON K GOTO 95,205,300 
95 PRINT CHR$ (12) : PRINT “ 现 有 记录 总 数 :”;M 
100 INPUT "人 移 修改 的 起 止 记 录 号 ?7;R1,R2 
105 IF RI < 10OR R2> MTHEN PRINT CHR $ (7)， 
GOTO 100 
110 INPUT "人 移 修 改 的 起 止 项 目 号 ?";I1,I2 
115 IFILI<1ORI2>18THEN PRINT CHR 和 $$ (7): GOTI 
110 
120 PRINT CHRS$ (12): FORT 一 RITOR2 
130 PRINT RD 和 $ ;人 事 档 案 ,R" ;IT 
140 FORJ 王 0ToOl17:INPUT X$(J): NEXTIJ 
150 ”PRINT D$: PRINT "请 修改 第 ";1;" 项 记录 :7 03 
(3X 宙 (2) 和 7) 
160 FORJ=ILTOI2 
170 PRINT MC 由 (一 TD; 原 为 :";X 和 $(J 一 1) 
175 INPUT 7 改 为 :";X$CJ 一 了 
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180 
190 
200 
205 
210 
220 


230 
240 
250 
260 
270 
280 
290 
300 
310 


NEXT J: PRINT WR$ jj” 人事 档案 ,R" ;I 
FORJ= 0TOo 17:, PRINT XV$(J): NEXTIJ 

X 一 FRE (0): NEXT I; PRINT D$ , GOTO 40 
PRINT CHR $ 〈12) , PRINT " 现 有 记录 总 数 :”;M 
INPUT “年龄 需要 加 1 的 起 止 记录 号 ?";R1,R2 
IF R1I < 1 OR R2 > M THEN PRINT CHR $ (7)， 
GOTO 210 

FOR I = RI TO R2 

PRINT RD$ ;人 事 档案 ,R" ;I 

FORJ= 0TOo17: INPUT X$ (JI): NEXTIJ 
X$(6) 王 STR 和 (VALICX 和 $(6)) 十 1) 

PRINT WR $ ;人 事 档案 ,R" ;I 

FORJ 王 0TO17: PRINTX$(J): NEXTIJ 

X = FRE (0): NEXT I: PRINT D$ :, GOTO 40 
PRINT CL$ ;人 事 档案 ” 

PRINT D$ ;RUN Hv 


程序 名 :DE 
5 REM DELETE 


10 
20 
30 
40 
50 


DIM X$(17);D$ = CHR 和 (4) 
OP 和 $ =D 和 4 十 "OPEN":CL$ 天 D 和 $ 十 "CLOSEY 
RD 和 $ =D$ 十 "READ":WR$ =DV$ 十 "WRITE 
PRINT OP$ ;人 事 档案 ,L120" 
PRINT RD $ ;人事 档案 ,R0" : INPUT M: PRINT D 9 : 
PRINT CHR$ (12) 
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55 PRINT " 现 有 记录 总 数 :”;M 

60 INPUT "人 移 删除 的 记录 号 ? ( 按 1000 退出 ):”;REC 

65 IF REC = 1000 THEN GOTO 160 

0 IF REC<1 OR REC>>M THEN PRINT CHR $ (7) :GOT0 
60 

75 IF REC = M THEN 140 

80 FOR I = REC 十 1 TO M 

90 PRINT RD $ ;人 事 档 案 ,R" ;IT 

100 FORJ 王 0To17:INPUTX$(J): NEXTJ 

110 PRINT WRS$ ji 人 事 档 案 ,R";I 一 1 

120 FORJ 王 0TO17: PRINTX 和 $(J): NEXTJ 

130 NEXTI 

140 “PRINT WR$ 光 人 事 档 案 ,R0" : PRINT M 一 1 

150， PRINT CL$ ;人事 档案 ” 

155 GOTO 20 

160 PRINT D$;”"RUN Hy 


程序 名 :TT 
10 DIMXS$(CI7),NUM$(500),KEY(500),XU$(17),2 
$ (87) 


15 Z$(81) 一“ 大 学 本 科 ":Z$$(82) 一 “大 学 专科 ":2 
$ (83) 一 “中 专 ":Z$(84) 一 “高 中 " :Z$(85) 一 " 初 
中 ":Z$ (86) = "小 学 ":Z$ 087) 一 "文盲 
20 D$ =CHRJ$ (4): PRINT CHR$ (18) 
30 OP$ =D$ 十 "OPEN":CL 和 $ 王 D 和 $ 十 "CLOSE 
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40 
42 
44 


50 
60 
70 
75 
80 
90 


95 
100 
110 


115 
120 


130 
140 
141 


147 
148 


WR9 =D?4 十 "WRITE" :RD 王 D9 十 "READ" 
PRINT OP$ ”项目 " 3” ,L200% 

PRINT RD $j" 项 目 ";j”"，R"i;1: FOR II 一 0TO 17， 
INPUT XUV$ (ID : NEXT I: PRINT CL$ ;项 目 " 
PRINT OP$ ;人事 档 案 ,L120" 
PRINT RD $ jj 人 事 档案 ,R07 
INPUT M:PRINT D$ :PRINT CHR(12) 
PRINT ”项目 编号 :1 一 18" 
INPUT "和 欲 排序 的 项 目 号 ?" ;IT 
IFIT<10ORIT > 18THEN PRINT CHR$ (7): GOTO 
80 
PRINT " 现 有 记录 总 数 :”;M 

INPUT " 欲 排序 的 起 止 记录 号 ?";R1,R2 

IF R1 < 0 OR R2 > M THEN PRINT CHR $ (7 ) : 
GOTO 100 

GOSUB 1000 

PRINT CHR$ (12): FORI 王 RITOR2:N 一 I 一 R1 
十 1 

PRINT RD 和 $ ;” 人 事 档 案 ,R" ;I 

FORJT 一 0ToOl12:INPUTX9(J): NEXTIJ 

IF VAL (X$(1)) 一 31ORVAL(CXV$(CI)) 一 32 OR 
VAL (X 和 (1)) =33O0RVAL (X 和 (1)) 一 34OR VAL 
(X$(1)) 一 35 THEN 148 

GOTO 230 

IFVAL (X$(10)) 一 81ORVAL (CXV$(10)) = 82 OR 
VAL (X$4 (10)) = 83 THEN 230 
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150 
155 
156 
157 
160 
170 
180 
190 
200 


210 
220 


230 


235 


250 


KK 一 VALCXV 和 (CT 一 1)) 

IFK 一 0THEN 230 

SS 一 S 十 1 

IFI> 之 RITHEN 170 

NUMS$(N) = STR 和 $ (TD :KEY(N) 王 K:;GOTO 230 
FORJ=N 一 1TO1STEP 一 1 

IF K > KEY(J) THEN NEXT J 

FORT ==N 一 1TOJ 二 1STEP 一 1 

NUMS$CT 十 1) = NUM$CT):KEY(CT 十 1) 一 KEY 
(T) 

NEXT T 

NUMV$(J 十 1) = STR 和 $ (D:KEY(J 十 1) =K 

又 = FRE (0):， NEXT I:， PRINT D $ ,PRINT CHR 
(18) 

IFS = 0THEN PRINT "无 排序 对 象 , 按 任意 键 返 回 ."， 
PRINT CHR$$ (19): GOTO 50 

INPUT "在 打印 机 上 打印 排序 结果 吗 ? (Y/VN)" ;AS$ 

IF Ad$ = "Y" THEN POKE 1659,1: POKE 1787，, 2; 
GOTO 246 

PRINT "高 中 及 其 以 下 毕业 -中 级 职称 - 按 参 工时 间 排 
序 ;": GOTO 250 

PRINT “高 中 及 其 以 下 毕业 -中 级 职称 - 按 参 工时 间 排 
序 :": PRINT 

PRINT "序号 "; TAB( 6)j 姓 名";TAB(C 17)i 毕 
业 时 间 ”; TAB( 27);" 上 次 晋升 时 间 ” 

FORI 一 STO1STEP 一 1 
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260 
270 
290 


300 
310 
340 
350 


360 
370 
380 
390 
1000 
1030 


1040 


1045 


1050 


PRINT RD $ :;"” 人 事 档 案 ,R"; VAL (NUMS$ (TD)) 
FORJ 一 0ToO17:; INPUT X$(J): NEXTIJ 
PRINT "第 ";S 一 I 十 1; TAB(6);X 和 (2);7C3NUM 
$(D;ji")"; TAB( 18);X$(12); TAB( 28);X$(17); 
IF INT (I/60) < 二 >> I/60 THEN PRINT : GOTO 340 
PRINT CHR $ 〈19): PRINT : GOTO 340 
X = FRE (0): NEXT I:, POKE 1659.0 
PRINT "( 按 任 一 键 继续 进行 ); : PRINT CHR $ (19)， 
PRINT DV 
GET W$ : INPUT "还 要 进行 其 他 排序 吗 (Y/N)?";B$ 
IFB$ = "Y" ORBV$ 一 "y"” THEN 50 
PRINT CL $ ;人 事 档案 " 
PRINT CHR $ (18): PRINT D$ ;RUN H/ 
VTAB (11)， HTAB (1) ,PRINT " 整 ": VTAB (11); 
HTAB (3) : PRINT " 理 ” 
VTAB (11):， HTAB (5)， PRINT " 资 ": VTAB (11) ; 
HTAB (7): PRINT " 料 ” 
VTAB (11):， HTAB (9): PRINT ",": VTAB (11): 
HTAB (11): PRINT "请 ” 
VTAB (11): HTAB (13): PRINT " 稍 ”":VTAB (11) ; 
HTAB (15)， PRINT " 候 ”" :;VTAB(11):， HTAB (17) ; 
PRINT ".7 
RETURN 
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程序 名 :KKK 


1 
2 


DIMXS$(17),XU$ (17),Z$(200):D$ = CHR$ (4) 
Z$(1l1) = 主任 医师 ":Z$(12) 一“ 主任 药师 ":2 
$ (13) 天 "主任 护 师 ":Z$ (14) = "主任 技师 ":Z$ (15) 
一 “其 他 正高 ” 

Z$(21) 一" 副 主 任 医 师 ":Z$(22) 王 “ 副 主任 药师 " :2 
$(23) 天 “ 副 主任 护 师 ":Z$(24) 一 “ 副 主 任 技 师 ":2Z 
$ (25) = "其 他 副 高 " 

Z$(31) = "主治 医师 ":Z$(32) = "主管 药师 *:2 
$ (33) = "主管 护 师 *:Z$ (34) = “主管 技师 ":Z$ (35) 
一 “其 他 中 级 " 

Z$(41) 一" 医师 ":Z$ (42) 一 "药师 ":Z$ (43) 一 “ 护 
师 ":Z$ (44) 一 “技师 ":Z$ (45) 天 “其 他 医师 级 
ZV$(51) 一 " 医 士 ":Z$ (52) 一 " 药 士 ":Z$ (53) 一 “ 护 
士 ":Z$ (54) 一 " 技 士 ":Z$ (55) 一 "其 他 医 士 级 ” 

Z 和 $(61) 一 "未 任 医 生 ":Z$(62) 一" 未 任 药 剂 ";2Z 
$ (63) = "未 任 护理 ":Z$ (64) 一“ 未 任 医 技 ":;Z$ (65) 
一 “其 他 未 任 ” 

Z$(71) = “未 评 医生 “:Z$(72) 二 “未 评 药 剂 ":2 
$ (73) 王 “未 评 护理 ":Z$ (74) 一 “未 评 医 技 ":Z$ (75) 
一 “其 他 未 评 " 

Z$(8) 一 " 男 ":Z$(9) 一 " 女 ":Z$ (81) 一 "大 学 ":Z 
$ (82) 一 "大专 ":Z$(83) = "中 专 ":Z$$(84) 一 "高 
中 ":Z$ (85) 一 “初中 " :Z$ (86) 一 “小 学 ":Z$ (87) = 
" 文 育 ” 


10 Z$(91) 一 “ 川 医 ":Z$(92) 一 " 重 医 ":Z$$(93) 一 " 泸 
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12 


13 


15 


医 ":Z$ (94) 一" 昆 医 " :Z$ (95) 一 " 贵 医 ":Z$ (96) 一 
"新 医 ":Z$ (97) 一" 北 医 ” 
Z$(98) 一" 川北 医 ":Z$ (99) = "河北 医 ":Z$ (100) 
一 “ 齐 哈 医 ":Z$ (101) = "成 中 医 " :Z$ (102) 一 "成体 
沈 /:Z$(103) 一 " 广 医 ":Z$(104) 一" 七 医大 ”:Z 
$(105) 一" 泸 医 专 ":;Z$ (106) 一 "三 医大 ":Z$ (107) 
一 / 医 ” 
Z4$(110) 一" 院 部 ":Z$(111) 一" 院 办 ":Z$ (112) 一 
“医务 处 ":Z$ (113) = “护理 部 ":Z$ (114) 二 “人事 
科 ":Z$(115) 一 “保卫 科 ":Z$ (116) 一" 防 保科 ” 
Z$(118) 一" 财务 科 ":Z$(119) 一 "总务 科 ”:Z 
$(120) = "设备 科 ":Z$ (121) 一“ 内 一 科 ":Z$ (122) 
一 "内 二 科 ”:Z$(123) = “外 一 科 ":Z$ (117) 一“ 信 
息 科 ” 
Z$(124) 一 ”外 二 科 ":Z$(125) 一" 妇 产 科 ”:Z 
$(126) = "小 儿科 ”:Z$ (127) 王 “ 门 内 科 ”":Z$ (128) 
一 " 门 外 科 ”:Z$(129) 于 "急诊 科 ":Z$ (130) 一 “五 
官 科 ” 
Z$(131) = "口腔 科 ":Z$ (132) 一“ 皮肤 科 ":$ (133) 
一 "理疗 科 " :Z$ (134) =“ 痔 漏 科 ":Z$ (135) 一 “ 门 
注 科 ”:Z$ (136) 一 “ 门 办 ":Z$(137) 一 ”7 
Z$(138) = "病理 科 ":Z$(139) = “放射 科 ":Z 
$ (140) 一 “ 捡 验 科 ":Z$ (141) 一" 功能 科 ":Z$ (142) 
一 " 儿 保 科 ”:;Z$(143) = 一" ":Z$(144) 一 " 
Z$(145) = "内 罕 镜 ":;Z$(146) = "供应 室 ":Z 
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18 
19 


20 


21 


$(147) = “ 布 供 室 ":Z$ (148) 一 “麻醉 科 ”:Z$ (149) 
一 "手术 室 ":Z$ (150) 一 "西药 科 ":Z$ (151) 一 "中 
药 科 " 

Z$(152) 一 “中 医科 ":Z$(153) 一 “ 骨 伤 科 " 
Z$(1) .= "干部 ":Z$ (2) 一 "工人 ":Z$(3) 一 "合同 
工 ':;Z$ (4) 一" 中共":Z$ (5) = "农工 1:Z$ (6) =， 
九 三 ":;Z4$4 (7) 一" 民 革 " 

Z$(160) 和 “乐山 卫校 ":Z$(161) 一 “宜宾 卫校 :2 
$ (162) 一 “成 都 卫校 ":Z$(163) 一“ 雅安 卫校 *:2 
$(164) 一 “市 医院 卫校 ";Z$ (165) = 成 都 医 士 校 "， 
Z$(166) 一 " 峨 中 药 校 " 


Z$(167) 一“ 重庆 药 校 ":Z$(168) 一“ 广州 卫校 ":Z 
$(169) 一” 卫校 ":Z$(170) 王 “ 卫校 ";Z 
$(171) 一” 卫校 ":Z$ (172) 二 

校 ":IZ$(173) 一 7 校 " 


Z$(10) 一" 汉 ?” 
OP$ 王 Dd$ 十 "OPEN":WR 和 $ =DS$ 十 "WRITE"， 
CL$ 王 DS$ 十 "CLOSE" :RD 和 $ = DV$ 十 “READ 
PRINT OP$ ;项 目 ";j，,L200v 
PRINT RD $; 芒 习 和 ;ij,Ri1， FOR TI 一 0To 17， 
INPUT XUV$ (TD : NEXT I; PRINT CL 和 ;项 目 " 
PRINT CHR $ (18):, PRINT D$ , PRINT CL $ ;人 事 档 
案 " 
PRINT OP$ ;” 人 事 档案 ,L120" 
PRINT RD $ ;人 事 档 案 ,R0" 
INPUT M:, PRINT DV$ 

.261 。 


70 

80 

90 

92 

93 

914 

98 

100 
105 
110 
120 
132 
1140 
150 
160 
165 
170 
173 
171 
175 
176 
177 
178 
179 
180 
181 


PRINT CHR $ (12): PRINT ”查询 方式 " 
PRINT "1. 按 记 录 序 号 查 " 
PRINT "2. 按 项 目 序 号 查 ” 
PRINT "3. 按 某 项 内 容 查 " 
PRINT "4. 按 任意 组 合 查 " 
PRINT "5. 统计 技术 职称 ” 
PRINT "6. 统计 毕业 学 历 ” 

PRINT ”7. 退 出 ” 

INPUT "请 选择 :”;K 

ON K GOTO 120,340,550,700,2000,720,900 
GOSUB 1060 

GOSUB 1300: PRINT CHR$ (12) 

CoOT = 0:T = 0:FOR IT 一 RITOR2 
GOSUB 1140 

COT = COT 十 1 

PRINT "NO:";T 

PRINT XUV$ (0)i "3Z$CVAL (CXV$(0))) 
PRINT XU 和 $ (1);i” "3Z$(CVAL COX 和 $(1))) 
PRINT XUJ$ (2);i" "3;X$(2) 

PRINT XU$ (3)i” "3Z$(CVAL COX$(03))) 
PRINT XU 下 (4);77;ZJ$(VALCOXS$(C4))) 
PRINT XUV$ (5);” 7;X$ (5) 

PRINT XU 和 $(6);" "3X$(6) 

PRINT XU 和 $(7); "3X$ (7) 

PRINT XUV$ (8);7 3;X$(8) 

PRINT CHR $ (19) 

。265 。 


370 


375 
380 


PRINT XUV$ (9):7 7;X$ (9) 

PRINT XUS$ (10);v:Z$(CVAL (COXSV$(CL0))) 

PRINT XUS$ (Li 73X 和 (11) 

PRINT XU 和 $ (12); "7";X 和 $(12) 

PRINT XU$ (13); 7;X$(13) 

PRINT XUS$ (14) 和 7 7;Z 和 书 (VALCX$(141))) 

PRINT XU 有 $(15);j”7;X 和 (15) 

PRINT XUS$ (16); 7;Z$$(CVALGX 和 (16))) 

PRINT XUV$ (17);” "3;Z$(VALGXS$(17))) 

PRINT CHR $ (19) 

X 一 FRE (0): NEXT1I 

GOSUB 1210; GOTO 40 

PRINT ”项 目 编号 :"1 一 18” 

INPUT " 侈 查 询 的 项 目 号 ?" ;IT 

IFIT < 一 1ORIT > 18THEN PRINT CHRS$ (7)， 
GOTO 340 

GOSUB 2220 

GOSUB 1060 

GOSUB 1000:, PRINT CHR$ (12) 

IF YA 和 ="Y" THEN GOSUB 2250， POKE 1659, 1; 
POKE 2043, 80: PRINT XU$ (CT 一 1)i 花 名 单 :": 
PRINT 

PRINT "NO;"; TAB( 5); 姓 名 ”; TAB( 13); 年 
龄 "; TAB( 20);XU$ (IT 一 1): PRINT 

COT = 0:T = 0: FORI 一 RITOR2 

PRINT D$$: PRINT RD $ ;人 事 档 案 ,R" ;1T 
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500 


513 


520 


572 


575 


FORJ 王 0To17: INPUT XV$(J): NEXT IJ 
T 一 TT+1l:LV 一 100x*(INTI(CT/CR2 一 R1 十 1) * 
10” 2 十 0.5)1/1I0” 2) 
IFX$(OT 一 1) = ”THEN 540 
PRINT I;i””"; TAB( 5);X$(2);， TAB( 13);X$ (5); 
TAB( 20);X$ (6) 和 岁 "; TAB( 26);X$ (IT 一 1); 
COT 一 COT 十 1 
IF YA$ < > ，"Y" THEN 520 
IF INT (COTV10) <<> COT / 10 THEN GOTO 540 
IF INT (COT/30) <<> COT/30 THEN GOTO 535 
PRINT CHR$ (19): PRINT CHR$ (12) 
IF IT < 3THEN NEXT I， GOTO 545 
又 一 FRE (0): NEXT1I 
GOSUB 1210: POKE 1659,0: GOTO 40 
INPUT " 侈 查询 的 内 容 ?";Y$ 
GOSUB 2220 
GOSUB 1060 
GOSUB 1000: PRINT CHR $ (12) 
IF YA 和 $$ = "Y” THEN GOSUB 2250; POKE 1659，, 1] ; 
POKE 2013,80: PRINT : PRINT Z$(CVAL (Y$ ));7 名 
单 : 

PRINT "NO:"; TAB( 5); 姓 “; TAB( 12); 生 
日 "; TAB( 18); 学 历 "; TAB(23); 沁 毕业 时 间 ”;，TAB 
(32);" 参 工时 间 ";， TAB( 10) 光 技术 职称 ";， TAB ( 
22); 批 准时 间 " ;TAB( 32); 管 理 类 别 "; PRINT 
COT = 0:T = 0:FORT 一 RITOR2 
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580 
600 
602 


605 
610 


620 
623 
625 
630 
640 
650 
660 
700 
720 
900 
1000 


1020 


1030 


PRINT D$ : PRINT RD $ ;" 人 事 档案 ,R" ;IT 
FORJ 一 0To 17: INPUT X$(J): NEXTJ 
T 一 T 二 1:LV = 100x (INT (TCR2 一 RI 十 1)x 
10”` 2 十 0.5)/10” 2) 
IFEXV$(0) <>>Y$ THEN 650 
PRINT Ii”"; TAB( 5);X$(2); TAB( 12);X 书 (5); 
TAB ( 18);Z$CVALCXS$(I0)));，TAB( 24);X 
$(11); TAB( 33);X 和 (12); TAB( 9);Z$(CVAL (X 
$(1))); TAB( 22);X$$(17); TAB( 32);Z$(VAL 
(X$(16))): GOTO 620 
COT 王 COT 十 1 
IF YA$ <<> "Y"” THEN 630 
IF INT (COT/10)<> COT / 10 THEN GOTO 650 
IF INT (COT/30) <<> COT/30 THEN GOTO 650 
PRINT CHR $ (19);PRINT CHRS$ (12) 
X 一 FRE (0); NEXT 1 
GOSUB 1210: POKE 1659,0: GOTO 40 
PRINT CL$ ;人事 档案 " : PRINT.DV$ ;"RUN Kl/ 
PRINT CL$ ; "人事 档案 ": PRINT D$ ;"RUN K27 
PRINT CL$ ;人 事 档案 ":- PRINT D$ ;"RUN Hy 
VTAB (11) :PRINT "在 ": VTAB (11): HTAB (3)， 
PRINT " 查 / 
VTAB (11);， HTAB (5): PRINT " 找 ": VTAB (11)， 
HTAB (7) : PRINT “中 
VTAB (11): HTAB (9):，PRINT ","; VTAB (11)， 
HTAB (11): PRINT "请 " 
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1040 


1050 
1060 
1065 
1070 


1080 
1140 
1180 
1190 


1200 
1210 


12195 


1216 


1220 


1230 
1240 
1300 


VTAB (11): HTAB (13): PRINT "” 稍 ”: VTAB (11) ; 
HTAB (15)， PRINT " 候 ”:, VTAB (11): HTAB (17) ， 
PRINT "1 

RETURN 

PRINT " 现 有 记录 总 数 :"M 

INPUT "人 和 欲 查询 的 起 止 记录 号 :”";R1L,R2 

IF RI < 1 OR R2 > M THEN PRINT CHR $ (7): 
GOTO 1060 

RETURN 

PRINT RDS$ ji 人 事 档 案 ,R” ;TI 

FOR KK 一 0TO 17: INPUT X 和 $ (J): NEXT 了 

T 一 T 二 1I:LV 一 100x (INT(T/CR2 一 R1 十 1) x 
10” 2 十 0.5)/10 ”人 2) 

RETURN 

PRINT CHR $ (18)，PRINT CHR $ (18):，PRINT 
" 共 " ;COT" 人 " :; PRINT CHR $ (19) : POKE 1659,0 
PRINT CHR$ (12):， VTAB (5):， PRINT TAB( 12); 
"应 查 人 数 :";R2 一 R1 十 1 

VTAB (6): PRINT TAB( 12);" 实 查 人 数 :";T 

VTAB (7):， PRINT TAB ( 12);" 查 找 率 :"; 
LV3i7 0 


VTAB (9):; PRINT TAB( 10);" 按 任意 键 继续 进行 " 
PRINT CHR $ 〈19);， RETURN 
VTAB (11):， PRINT " 按 "， VTAB (11): HTAB (3); 
PRINT " 任 " 
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1310  VTAB (11): HTAB (5): PRINT " 意 ": VTAB (11)， 
HTAB (7) : PRINT " 键 " 

1330  VTAB (11): HTAB (9): PRINT " 继 ": VTAB (11): 
HTAB (11): PRINT " 续 " 

1340 RETURN 

2000 GOSUB 2220 

2004 PRINT CHR$ (12): GOSUB 1000 

2010 PRINT D$ ;PRINT CL$ 罗 人 事 档 案 ” 

2020 PRINT OP$ ;人 事 档案 ,L1207 

2025 FORI 一 1TOM 

2030 PRINT RDV$ ji 人 事 档 案 ,R" 5;I 

2035 _ VTAB (6): HTAB (14) : PRINT 1 

2040 _ INPUT X$(0),X$(1) 

2050 IFXV$(1) 一"11"” THEN X1L 一 XI 十 1 

2051 IFX$(1) 一"12" THEN X2 一 X2 十 1 

2052 IFX$(1) = "13" THEN X3 一 X3 十 1 

2053 IFX$(1) ="14" THEN X41 一 X4 十 1 

2054 IFXV$(L) 一 ”15"” THEN X5 一 X5 十 1 

2060 IFXV$(1) 一"21" THENY1 王 Yl1 十 1 

2061 IFX$(1) 一 "22/ THEN Y2 一 Y2 十 1 

2062 IFX$(1) = "23" THEN Y3 一 Y3 十 1 

2063 IFEXV$(I) = "242 THEN Y4 一 Y4 十 1 

2064 IFX 和 $(1) 一 "25"” THENY5 一 Y5 十 1 

2070 IFX$(1) = "31" THEN R1 一 RI 十 1 

2071 IFEX 和 (1) = "32” THEN R2 一 R2 十 1 

2072 IFXJ$(l) 一”"33"” THEN R3 一 R3 十 1 
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2073 IFX$(1) 一"34" THEN R4 一 R4 十 1 

2074 IFX$(1) 一"35”THEN R5 一 R5 十 1 

2080 IFX$(1) = "41"” THENQ1I =Ql 十 1 

2081 IFX$(1) ="42" THEN Q2 =Q2 十 1 

2082 IFX$(1) 一 "43" THEN Q3 =Q3 十 1 

2083 JFX$(1) 一 ”44 THEN Q4 王 Q4 十 | 

2084 JIFX$(1) 一"45” THEN Q5 王 Q5 十 1 

2090 JIFEX$(1) 三 "517 THEN U1I 王 Ul 十 1 

2091 IFX$(1) = 王 "52/ THEN U2 一 U2 十 1 

2092 TIFX$(1) ="53" THEN U3 一 U3 十 1 

2093 JEFX$(L) 一"54 THEN U4 王 U4 十 1 

2094 IFEX$(1) 一"55"” THEN U5 王 U5 十 1 

2100 IJFX$(1) 一 "61" THEN P1 一 Pl1 十 1 

2101 IFX$(1) 一 ”62 THEN P2 一 P2 十 1 

2102 JIFEX$(1) 一"63" THEN P3 王 P3 十 1 

2103 IFX$(L) 一”"642 THEN P4 一 P4 十 1 

2104 IFX$(1) 一”65”THEN P5 一 P5 十 1 

2110 IFX$(1) =7"717 THEN KL 一 KI 十 1 

2111 IFX$(1) 一 "72/ THEN K2 一 K2 十 1 

2112 IFX$(1) 一"73" THEN K3 一 K3 十 1 

2113 IFX$(1) 一"74/ THEN K4 一 K4 十 1 

2114 IFX$(1) 三 775" THEN K5 一 K5 十 1 

2120 NEXT I: PRINT CHR $ (18): PRINT CHR$ (12) ; 
PRINT CHR$ (18) 

2125 XXXlI 十 X2 十 X3 十 X4 十 Xo:Y 一 Yl 十 Y2 十 
Y3 十 Y4 十 Y5:R 王 RI 十 R2 十 R4 十 Ro:Q 王 Ql 
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2127 


2128 
2129 


2130 
2131 


2132 


2136 


2137 


2138 


2140 


2150 


十 Q2+Q3+Q4+aQ5:U==Ul 十 U2 十 U3 十 U4 
十 U5:P = P!l 十 P2 十 BE3 十 P4 十 P5:K 一 Kl 十 
K2 十 K3 十 K4 十 K5 

ML 一 XI 十 Yl1 十 RI 十 QI 十 Ul 十 PlL 十 KL:M2 
= X2 十 Y2 十 R2 十 Q2 十 U2 十 P2 十 K2:M3 = 
X3 十 Y3 十 R3 十 Q3 十 U3 十 P3 十 K3:M4 一 X4 
十 Y4 十 R4 十 Q4 十 U4 十 P4 十 K4:M5 一 X5 十 
Y5 十 R5 十 Q5 十 U5 十 P5 十 K5 

M 一 又 十 Y 十 R 二 QT+U 十 P 十 开 

IF YA 和 $ = "Y" THEN GOSUB 2250; POKE 1659 ,6; 
POKE 2043 ,80 

PRINT TAB( 10)" 职 称 统计 一 览 表 ” 

IF YAS$ = "Y" THEN PRINT TAB( 10);" (3;YER; 
"年 ";YUE 密 月";DAY3 密 日 )7 

IF YA$ 三 ”Y" THEN PRINT 7 一 一 一 


PRINT " 职 别 "; TAB (6)" 医 "; TAB( 11)" 药 ";， TAB 
( 16) 7 护 " TAB( 21) 技 "，TAB( 25) 其 他 "; TAB 
(30)7 小 计 "” 

IF YA 下 二 "Y" THEN PRINT "一 一 -一 一 -一 一 一 -- 


PRINT "正高 "; TAB(6);X1; TAB( 11)X2;， TAB 
(16) X3; TAB( 21)X4; TAB( 26)X5; TAB( 31)X 
PRINT " 副 高 "; TAB( 6);Y1; TAB( 11)Y2; TAB( 16) 
Y3; TAB( 21)Y4; TAB( 26)Y5: TAB( 31)Y 

PRINT "中 级 ;TAB( 6); R1; TAB( 11)R2;， TAB 
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2160 


2162 


2165 


2166 


2168 


2170 


2180 


2182 


2185 
2190 


2195 


2210 
2220 


(16)R3; TAB( 21)R4; TAB( 26)R5; TAB( 317 有 R 


PRINT " 师 级 "; TAB( 6);Q1; TAB( 11)Q2; TAB( 16) 
Q3; TAB( 21)Q4; TAB( 26)Q5; TAB( 31)Q 

PRINT " 士 级 "; TAB( 6);Ul1; TAB( 11)U2; TAB( 16) 
U3; TAB( 21)U4; TAB( 26)U5; TAB( 31)U 

PRINT "未 任 "; TAB( 6);P1; TAB( 11)P2; TAB( 16) 
P3; TAB( 21)P4; TAB( 26)P5;TAB( 31)P 

PRINT "未 评 "; TAB( 6);K1; TAB( 11)K2; TAB( 16) 
K3; TAB( 21)K4; TAB( 26)K5; TAB( 31)K 

IF YA 和 二 ”Y”" THEN PRINT "一 一 一 一 一 一 一 一 一 
ER 二 _ 

IF YA$ = "“Y" THEN PRINT "合计 "; TAB( 6);M1; 
TAB( 11)M2; TAB( 16)M3; TAB( 21) 一 M4; TAB 
( 26)M5; TAB( 31)M: GOTO 2182 

PRINT "合计 "; TAB( 6);M1; TAB( 11)M2; TAB( 
16)M3; TAB( 21)M4; TAB( 26)M5; TAB( 31)Mi 
IF YA 和 $ 一 "Y" THEN PRINT "一 一 一 一 一 一 一 一 一 
二 二 

POKE 1659 ,0 


XI 一 0:X2 一 0:X3 一 0:X4 一 0:Y1I=0;Y2 一 0 

Y3 =0:Y4 王 0:RI1 王 0:R2 王 0:R3 一 0:R4 一 0 

Q1=0:Q2=0:Q3=0:Q4=0:U1=0:U2 一 0， 

U3 一 0:U4 王 0:P1 王 0:P2 一 0:P3 王 0:P4 一 0:K1 

一 0:K2 一 0:K3 王 0:K4 王 0 

PRINT CHRJ$ (19): PRINT D$ :, GOTO 70 

INPUT "今天 是 ? 年 ? 月 ? 日 7;YER,YUE,DAY 
。273。 


2230 IJNPUT "要 打印 吗 (Y/N)?w ;YAS$ 
2240 RETURN 
2250 IFYAV$ = 一"Y" THEN PRINT "准备 好 打印 机 后 按 任 


意 键 "; PRINT CHR 和 (19) ,RETURN 


程序 名 :K1 


1 
2 


DIMXV$(17),XUV$(17),Z$(160):;D 和 $ = CHR 和 $ (4) 
Z$(l1) 一 "主任 医师 *":Z$(12) = "主任 药师 ":Z 
$ (13) = "主任 护 师 *:Z$ (14) 一" 主任 技师 /:Z$ (15) 
一 “其 他 正高 ” 

Z$$(21) 一“ 副 主任 医师 ":Z$ (22) 一“ 副 主任 药师 " :Z 
$(23) 一 " 副 主任 护 师 *:Z$(24) 一 “ 副 主 任 技师 ":Z 
$ (25) 一” 其 他 副 高 " 

Z$(31) 一 "主治 医师 *:Z$(32) = “主管 药师 ";:Z 
$ (33) 一" 主管 护 师 ":Z$ (34) 一 “主管 技师 ":Z$ (35) 
一 “其 他 中 级 ” ， 
Z$(41) 一 "医师 ":Z$(42) 一“ 药师":Z4 (13) = “ 护 
师 *:Z$(44) 一 “技师 *:Z$ (45) 一“ 其 他 医师 级 " 
Z$(51) 一" 医 士 ":Z$(52) 一 " 药 士 ":;Z$ (53) 一“ 护 
士 ":Z$(54) 一 “ 技 士 ":Z$ (55) 王 “ 其 他 医 士 级 ? 
Z$(61) 一 “未 任 医 生 ":Z$(62) = “未 任 药剂 ;2Z 
$ (63) = "未 任 护理 ":Z$ (64) 天" 未 任 医 技 ":Z$ (65) 
一 “其 他 未 任 " 

Z4$(71) 天 "未 评 医生 ":Z$(72) = "未 评 药剂 ":Z 
$ (73) = "未 评 护 理 ":Z$ (74) = 一 "未 评 医 技 ";Z$ (75) 


。， 2714。 


10 


11 


12 


13 


14 


159 


| 


6 


一 “其 他 未 评 ” 

Z$(M) 一 " 男 ":Z$(F) = " 女 ":Z$(81) 一 “大 学 ":Z 

$ (82) 一 "大专 ":Z$ (83) 一 "中 专 ":Z$ (84) 一 "高 

中 ":Z$ (85) = “初中 ":;Z$ (86) 一 “小 学 ":Z$ (87) 一 

/文盲 

Z$(91) = 7“ 川 医 ":;Z$ (92) 一 " 重 医 ":Z$ (93) 一 " 泸 
医 ":Z$ (94) 一 " 昆 医 ":;Z$ (95) 一 " 贵 医 ":Z$ (96) 
一 "新 医 ";Z$ (97) 一 " 北 医 " 

Z$ (98) = “川北 医 ":Z$ (99) = “河北 医 ":Z$(100) 
一 " 齐 哈 医 ":;Z$ (101) 一 “ 昆 医 ":;Z$ (102) 一 “成 中 
医 ":Z$ (103) 一 “成体 院 ":Z$ (104) 一" 广 医 ” 

Z$ (110) = “ 院 部 ":ZS$ (111) 一 “ 院 办 ":Z$(112) 
一 "医务 处 ":Z$ (113) 王 "护理 部 ":Z$ (114) 一“ 人 事 
科 ":Z$(115) 一 “保卫 科 ":Z$ (116) = " 防 保科 ? 
Z$(118) = “财务 科 ":Z$(119) 一 “总 务 科 ”":Z 
$ (120) 一 “设备 科 ":Z$ (121) 一 “内 一 科 ":Z$ (122) 
一 “内 二 科 ":Z$ (123) 一" 外 一 科 ":Z$ (116 一“ 信息 
科 / 
Z$(124) = "外 二 科 ":Z$(125) = “ 妇 产 科 ":Z 
$ (126) =“ 小 儿科 ";Z$ (127) 一 “ 门 内 科 ":Z$ (128) 
一 “ 门 外 科 ":Z$ (129) 一 “急诊 科 ":Z$ (130) 一 “五 
官 科 "” 
Z$(131) = "口腔 科 ":Z$(132) = “皮肤 科 ”":Z 
$ (133) = “理疗 科 ":Z$ (134) 一 “ 痔 漏 科 ":Z$ (135) 
一 7" 门 注 科 ":Z$(136) 一“ 门 办 ”:Z$(137) 一 ”" 
Z$(138) = “病理 科 ":Z$(139) = “放射 科 ":Z 
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17 


18 
27 


29 
30 


40 


45 
50 
60 
70 
93 
95 
100 
110 
700 
705 
735 


$ (140) 一" 检验 科 ":Z$ (141) 一" 功能 科 ":Z$ (142) 
一 " 儿 保科 ":Z$(143) 一 “:Z$7144) 一 “ 
Z$ (145) “内 罕 镜 ":Z$(146) 一 “供应 室 ":Z 
$(147) = “ 布 供 室 ":;Z$ (148) 一“ 麻醉 科 ":Z$ (1149) 
一 “手术 室 “ :Z$ (150)= “西药 科 ":Z$ (151) 一 “中 药 
科 ” 
Z$(152) 一 “中 医科 ":;Z$ (153) 一“ 骨 伤 科 ? 
OP 和 $ 王 D$ 十 "OPEN":WR 和 $ 王 D 和 $ 十 "WRITE" :CL 
$ 一 D$ 二 2"CLOSE7 :RD 和 王 D 和 9 十 "READY 
PRINT OP$ ;项 目 ";,L200/ 

PRINT RD $;ji" 项 目 ";j",，R"; 1:， FOR TI 一 0TO 17: 
INPUT XU 和 $ (TI) : NEXT 1I1: PRINT CL$ 洲 项 目 " 
PRINT CHR $ (18): PRINT DS$ PRINT CL$$ 人事 档 
案 " 
PRINT OP$ ;” 人 人事 档案 ,L1207" 

PRINT RD$ ;人 事 档案 ,R07 

INPUT M: PRINT DV$ 

PRINT CHR $ (12): PRINT "查询 方式 : 

PRINT "1. 按 两 项 内 容 查 " 

PRINT "2. 退 出 ” 

INPUT "请 选择 :"”;K 

ON KK GOTO 700,900 

INPUT " 欲 查询 的 内 容 :”";AJ$$,B$,C$ 

GOSUB 1060 

GOSUB 1000: PRINT CHR (12) 
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736 


810 


1000 


1020 


1030 


PRINT "序号 "; TAB( 7);" 职 称 "; TAB(16); 姓 
名 "; TAB( 24);" 毕 业 "; TAB( 30) 和 批准 " 
COT = 0:;T =0 :FOR II 一 RITOR2 
PRINT RD$ ;”" 人 事 档 案 ,R" ;TI 
FORJ 王 0Tol17: INPUT X$(J): NEXTJ 
T=T 十 1:LV 一 100x (INTICT/CR2 一 R1 十 1)x 
10”^ 2 十 0.5)/10” 2) 
IFX$(10) <<>> ”81 THEN 820 
IFX$(11)>”"66" THEN 820 
IFXV$(1) <>> "31" THEN 820 
POKE 1659,0 
PRINT I;" 号 "; TAB( 5);Z$(CVAL (X$(01))); TAB 
(16);X$(2);， TAB( 24);X$(11);， TAB( 30);X 
$(17) 
COT 一 COT 十 1 
IF INT (COT/40) <<> COTV/40 THEN GOTO 820 
PRINT CHR $ (19): PRINT CHR$ (12) 
X 一 FRE (0): NEXTI 
GOSUB 1210: GOTO 40 
PRINT CL$ ;人 事 档案 ” 
PRINT D$ ;"RUN H" 
VTAB (11)): PRINT “在 ";VTAB (11):， HTAB (3) ; 
PRINT " 查 " 
VTAB (11): HTAB (5): PRINT  " 找 "”: VTAB (11) : 
HTAB (7): PRINT "中 " 
VTAB (11): HTAB (9):; PRINT ” ": VTAB (11) 
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1040 


1050 
1060 
1065 
1070 


1080 
1210 


12195 


1216 
1220 


1230 


1240 


1300 


1310 


1330 


1340 


HTAB (11): PRINT "请 " 
VTAB (11): HTAB (13): PRINT " 稍 ” : VTAB (11); 
HTAB (15): PRINT " 候 ”: VTAB (11): HTAB (17)， 
PRINT "| 
RETURN 

PRINT " 现 有 记录 总 数 :"M 

INPUT “人 和 侈 查 询 的 起 止 记录 号 :”;， R1,R2 

IF R1 << 1 OR R2 > M THEN PRINT CHR $ (7)， 
GOTO 1060 

RETURN 

PRINT CHR $ (18):， PRINT CHR $ 〈18):，PRINT 
“ 共 ” ;COT" 人 " ;PRINT CHR$ (19): POKE 1659,0 
PRINT CHR$ (12):VTAB (5): PRINT TAB( 12);/" 应 
查 人 数 :";R2 一 RI 十 1 

VTAB (6): PRINT TAB ( 12); 实 查 人 数 :”;T 
VTAB (7): PRINT TAB ( 12);" 查 找 率 :/ 
LV370h7 

VTAB (9): PRINT TAB( 10);j 按 任 键 继续 进行 ” 
PRINT CHR $ (19) :RETURN 

VTAB (11):PRINT" 按 "; VTAB (11)，HTAB (3)， 
PRINT " 任 " 

VTAB (11): HTAB (5): PRINT " 意 ": VTAB (11); 
HTAB (7): PRINT " 键 " 

VTAB (11): HTAB (9): PRINT " 继 ": VTAB (11)， 
HTAB (11): PRINT " 续 " 

RETURN 


.278 . 


程序 名 :K2 
1 DIMX$(17),XU$(17),Z$(200):D$ = CHR 和 (4) 


16 


27 


29 
30 


40 


414 
495 
50 
60 
120 
130 
135 
136 
140 
141 
150 


Z$(138) = “病理 科 ":Z$(139) 一 "放射 科 ":Z 
$(140) = "检验 科 ":Z$(141) = "功能 科 ”:Z 
$ (142) 一" 儿 保 科 ":Z$(143) 一 “ ”: 乙 
$(144) 一 ” 7 

OP 和 王 D$ 十 "OPEN" ;:WR 和 $ 王 D$ 十 "WRITE" :CL 
$ 王 DY 和 十 "CLOSE ": RD 王 D$ 十 "READY" 

PRINT OP$ ;ji 项目";,L2007 
PRINT RD 和 $;" 项 目 "j",， Ri; 1:， FOR TI =0ToOo 17: 
INPUT XUV$ (ID) : NEXT TI: PRINT CL$ ;项 目 " 

PRINT CHR$ (18): PRINTD$ : PRINT CL$ ”人事 档 
案 " 

GOSUB 2220 

PRINT OP$ ;人 事 档 案 ,L1207 

PRINT RD$ ;人 事 档案 ,R0" 

INPUT M: PRINT CHR$ (12) 

FOR 工 王 1TOM 
PRINT RD 和 $ ;人 事 档 案 ,R" ;I 
FORJ 王 0Tol1l7:INPUT X(J): NEXT IJ 
AJ$ 一 RIGHT$ (X$(1)，1) 

VATB (6 ) HTIAB (16): PRINT I 
IF X$ (16) <> "1" THEN 2120 
IF X$(10) <<> "81” THEN 160 
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151 IEASY$ = "1 THEN X1 = X1 十 
152 IFAV$ = "2" THEN X2 一 X2 十 
153 IFAV$ 一 "3" THEN X3 一 X3 十 
154 IFAS$ 一 ”4 THEN X4 一 X4 十 
155 IFAV$ 一 "5" THEN X5 一 X5 十 
160 IFX$(10) 一 > "82” THEN 170 
161 IFAd 一 "1 THEN Y1 = Yl 十 
162 IF A$ 一 "2" THEN Y2 = Y2 十 
163 IFAS$ = "3" THEN Y3 一 Y3 十 
164 IFEAV$ = "4 THEN Y4 一 Y4 十 
165 IFAUV$ 一 "5" THEN Y5 一 Y5 十 
170 IFX$(10) <> "83" THEN 180 
171 IFASV$ = "1" THEN R1 = R1 十 
172 IFEAS$ = "2" THEN R2 = R2 十 
173 IF A$ 一 "3 THEN R3 = R3 十 
174 IFAS$ = ”4 THEN R1 一 R4 十 
175 IF A 和 $ 一 "5" THEN R5 = R5 十 
180 IFEX$(10) < 一 > "84" THEN 190 
181 IFAV$ 一 "1 THEN Ql = Ql 十 
182 IF Ad$ 一 "2" THEN Q2 一 Q2 十 
183 IFA 和 $ 一 /3 THEN Q3 一 Q3 十 
184 IJFAS$ = "4 THEN Q4 = Q4 十 
185 IFAS$ = "5" THEN Q5 = Q5 十 
190 IFX$(10) <<> "85"” THEN 200 
191 IFAV$ = "1 THEN UL = Ul 十 
192 IFAS$ = "2" THEN U2 = U2 十 
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和 


一 一 一 玫 一 


193 
1914 
195 
200 
201 
202 
203 
2014 
205 
210 
211 
212 
213 
2114 
215 


IFA$ = "3" THEN U3 = U3 十 1 
IFAV 和 $ = "4 THEN U4 一 U4 十 1 
IFA 和 $ = "5" THEN U5 = U5 十 1 
IF X$(10) < 之 "86"” THEN 210 
IFAV$ = "1l" THEN P1 = P1 十 1 
IF A$ = "2" THEN P2 = P2 十 1 
IFA$ = "3" THEN P3 = P3 十 1 
IFAS$ = "4 THEN P4 一 P4 十 1 
IF A$ = "5" THEN P5 = P5 十 1 
IF X$(10) < 之 "87" THEN 2120 
IFAV 和 $ = "1 THEN KL = KlI 十 1 
IFA$ = "2" THEN K2 二 K2 十 1 
IF A$ = "3 THEN K3 = K3 十 1 
IFA$4 = "4 THEN K4 一 K4 十 1 
IFA$ = "5" THEN K5 一 K5 十 1 


2120 X 一 FOR (0): NEXT II; PRINT CHR$ (18): PRINT 
CHRS$ (12): PRINT CHR$ (18) 
X 一 XL 十 X2 十 X3 十 X4 十 X5:Y 一 YL 十 Y2 十 
Y3 十 Y4 十 Y5:R 一 RlI 十 R2 十 R3 十 R4 十 R5:Q 
一 Ql 二 Q2 二 Q3 二 Q4 二 Q5:U 王 Ul1 十 U2 十 U3 


21295 


2127 


十 U4 十 U5:P 王 Pl 十 P2 十 P3 十 P4 十 P5:K 


K1 十 KK2 十 K3 十 K4 十 K5 


M1 三.X1 十 Y1 十 R1 十 Q1 十 Ul 十 PlL 十 KL:M2 


X2 十 Y2 十 R2 十 Q2 十 U2 十 P2 十 K2:M3 一 X3 十 
Y3 十 R3 十 Q3 十 U3 十 P3 十 K3:M4 王 X4 十 Y4 
十 R4 十 Q4 十 U4 十 P4 十 K4:M5 一 X5 十 Y5 十 R5 


2128 
2129 


2130 
2131 


2132 


2136 


2160 


2162 


2165 


十 Q5 十 U5 十 P5 十 开 5 

M 一 XT+TY+R+Q+TU 二 P 十 K 

IF YA 和 $ 一"Y" THEN GOSUB 2250: POKE 1659,6， 
POKE 2043 ,80 

PRINT "和 干部 学 历 统计 一 览 表 / 

IFEYAV 和 一"Y" THEN PRINT TAB( 10);7 (3 YER3 
年 ";*YUEi 月 "5DAYi" 日 ) 

IFYA$. 一 ”"Y" THEN PRINT - 


PRINT "学 历 7; TAB( 6) 医 "; TAB( 11)7 药 "; TAB( 
16)" 护 "; TAB( 21) 技 "; TAB( 25) 其他"; TAB( 
30)” 小 计 "” 

IF YAV$ 一 "Y” THEN PRINT 芝 - 要 


PRINT "大 学 "TAB( 6);X1; TAB( 11)X2; TAB(16) 
X3; TAB( 21)X4; TAB(26)X5; TAB( 31)X 

PRINT "大 专 ";TAB( 6);Y1; TAB( 11)Y2; TAB( 16) 
Y3; TAB( 21)Y4; TAB(26)Y5; TAB( 31)Y 

PRINT "中 专 "; TAB( 6);R1; TAB( 11)R2; TAB( 16) 
R3; TAB( 21)R4; TAB(26)R5; TAB( 31)R 

PRINT "高 中 "; TAB( 6);Q1; TAB( 11)Q2; TAB( 16) 
Q3; TAB( 21)Q4; TAB( 26)Q5; TAB( 31)Q 

PRINT "初中 "; TAB( 6);U1; TAB( 11)U2; TAB( 16) 
U3; TAB( 21)U4; TAB(26)U5; TAB( 31)U 

PRINT "小 学 " ;TAB( 6);P1;TAB( 11)P2; TAB( 16) 
P3; TAB( 21)P4; TAB(26)P5; TAB( 31)P 
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2166 


2168 


2170 


2180 


2182 


2185 
2190 


2195 


2210 


2220 


2230 


2240 


2250 


2300 


2310 


PRINT "文盲 "; TAB( 6);K1; TAB( 11)K2; TAB( 16) 

K3; TAB( 21)K4; TAB(26)K5; TAB( 31)K 

IF YA 和 =”"Y" THEN PRINT "一 一 一 一 一 一 一 一 一 

IF YA 和 = "Y" THEN PRINT "合计 "; TAB( 6); M1; 

TAB( 11)M2; TAB( 16)M3;TAB( 21)M4; TAB( 26) 

M5; TAB( 31)M: GOTO 2182 

PRINT "合计 "; TAB( 6);M1; TAB( 11)M2;， TAB 

( 16)M3; TAB( 21)M4; TAB( 26)M5; TAB( 31)M 

IF YA 和 $ = "Y" THEN PRINT "一 一 一 一 一 一 一 一 一 

POKE 1659,0 

XlL = 0:X2 = 0;X3 = 0:;X4 一 0:Y1 一 0:Y2 = 0 

Y3 = 0:Y4= 0:R1 = 0:R2= 0:R3 一 0:R4 一 0 

Ql=0:Q2=0:Q3= 0:Q4=0:U1 = 0:U2 = 0: 

U3 = 0:U4 = 0:P1 = 0;P2 = 0:P3 =0:P4 一 0:Kl 

一 0;K2=-0:K3 一 0:K4 一 0 

PRINT CHR $ (19): PRINT D$ , GOTO 2300 

INPUT "今天 是 ? 年 ? 月 ? 日 ";YER,YUE,DAY 

INPUT "要 打印 吗 (Y/N)?";YAS$ 

RETURN 

IF YA 和 $ = ，"Y" THEN PRINT "准备 好 打印 机 后 按 任 

意 键 ": PRINT CHR $ (19): RETURN 

PRINT CHR$ (12): INPUT "还 要 统计 吗 ? ( 按 ”0" 返 

回 )";Y$ 

IFYS$ = "0" THEN PRINT CL$;” 人 事 档 案 "; 
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PRINT DJ$;i"RUN KK K7 


2320 GOTO 50 


程序 名 :PP 

1 DIMX$(I7),XU$(17),Z$(200):D$ = CHRJ$ (4) 

2 Z$(l1) = “主任 医师 ":Z$(12) 一“ 主任 药师 ";2 
$ (13) = "主任 护 师 ":Z$ (14) “主任 技师 " :Z$ (15) 
一 “其 他 正高 " 

3 2Z$(21) 天 “ 副 主 任 医师 ":Z$(22) 天 “ 副 主 任 药师 " ;2 
$(23) 一 “ 副 主任 护 师 ":Z$(24) 一 “ 副 主任 技师 ":2 
$ (25) 一" 其 他 副 高 " 

4 Z$(31) 一 "主治 医师 “:Z$(32) 天 “主管 药师 " ;2 
$ (33) = "主管 护 师 ”“:Z$(34) 王 "主管 技师 ” :2 
$ (35) 一 “其 他 中 级 " 

5 ZV$(41) 一" 医 师 ":Z$(42) 一“ 药 师 " :2 
$ (43) 一 " 护 师 ":Z$(44) 一 "技师 ":Z$(45) 
一 “其 他 医师 级 " 

6 ZV$(51) 一" 医 士 ":Z$4(52) 一" 药 士 " ;2 
$ (53) = " 护 士 ";Z$(54) =" 技 ， 士 ";Z$(56) 
一 “其 他 医 士 级 ” 

7 Z$(61) = "未 任 医生 “:Z$(62) = "未 任 药剂 ?;2 
$ (63) 一" 未 任 护理 ":Z$ (64) = 未 任 医 技 ":;Z$ (65) 
一 “其 他 未 任 : 

8 Z$(71) 天 "未 评 医 生 ":Z$(72) = “未 评 药 剂 " ;2 


$ (73) 王 "未 评 护理 ":Z$ (74) 一“ 未 评 医 技 ":Z$ (75) 
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9 


10 


11 


12 


13 


14 


一 “其 他 未 评 ” 
Z$(8) 一 ” 男 ":Z$ (9) 一 " 女 ":;Z$(81) = “大 学 ":Z 
$ (82) 一 “大专 ":Z$ (83) 一 "中 专 ":Z$(84) 一 “高 
中 ":Z$ (85) 一" 初中 " :Z$ (86) 一" 小 学 ":Z$ (87) 一 
"文盲 
Z$(92) 一 " 院 长 ":Z$(93) 一 “ 副 院 长 ";:Z$ (94) 
一 " 科 长 ":;:Z$ (95) 一 "副科 长 ":Z$(96) 一 "护士 
长 ":Z$ (97) 二 "小 组 长 ":Z$ (98) 一 " 主 任 ” 
Z$ (99) 一 " 副 主任 ":Z$ (100) = "书记 ":Z$(101) 
一 " 副 书记 ":Z$(103) 一 “ 副 总 长 ":Z$(102) 一 “总 
长 " 
Z$(110) 一 " 院 长 室 ":Z$ (111) 一 " 院 办 ":;Z$(112) 
一 "医务 处 " :Z$ (113) 一 “护理 部 ":Z$ (114) 于“ 人 
事 科 ";Z$ (115) 一 "保卫 科 ”:Z$ (116) 一" 防 保科 
Z$(118) = " 计 财 科 ":Z$(119)” 一 "总 务 科 ":Z 
$ (120) 王 "设备 科 ":Z4(121)》 一" 内 一 科 ”:Z$(122) 
一 “内 二 科 ":Z$ (123) 一 “外 一 科 ":Z$ (117) 一 “ 信 
息 料 " 


Z$4(124) = "外 二 科 ":Z$(125) 天" 妇 产 科 ”:Z 
$ (126) 一 “小 儿科 ":Z$ (127) 一 “ 门 内 科 ”:Z$(128) 
一 " 门 外 科 ":Z$ (129) 一 "急诊 科 ":Z$ (130) 一 “五 
官 科 " 
Z$(131) = "口腔 科 ":Z$(132) 一 “皮肤 科 ":Z 
$ (133) 一 “理疗 科 ":Z$ (134) 一 “ 痔 漏 科 ":Z$ (135) 
一 “ 门 注 科 ":Z$(136) 一 " 门 办":Z$(137 一 "7 
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16 


17 


18 


19 


100 
105 


Z$(138) = “病理 科 ":Z$(139) 一 “放射 科 ":2 
$ (140) = "检验 科 ":;Z$ (141) 一 "功能 科 ":;Z$ (142) 
一 “ 儿 保 科 ":Z$(143) 一 ”7":Z$(144) 一 ”” 
Z$(145) 一“ 内 音 镜 ":Z$(146) 一 “供应 室 ":2 
$ (147) = “ 布 供 室 " :Z$ (148) = “麻醉 科 " :Z$ (149) 
一 “手术 室 " :;Z$ (150) 一 “药械 科 ":Z$ (151) 一" 中 
药 科 ” 

Z$(152) 一 "中 医科 ":Z$ (153) 一 “ 骨 伤 科 ":Z$ (10) 
一 " 汉 ":Z$ (91) 一 “ 回 ” 

Z$(1) 一 "干部 ":Z$ (2) 一 “工人 ":Z$ (3) 一 “合同 
工 ";Z$(4) 一 "中 共 ":Z$(5) 一 “农工 ":Z$ (6)= 
“ 九 三 ":Z$ (7) 一" 民 革 ” 

OP 和 $ 一 D$ 十 "OPEN" :WRV 和 王 Dd$ 十 "WRITE" :CL 
$ =D$ 十 "CLOSE" :RD$ 王 D$ 十 "READ7” 
PRINT CHR 和 $ (18): PRINT DJ$ : PRINT CLV$ ij 人 事 档 
案 " 

PRINT OP 和 $ 光 "人事 档案 ,L120/ 

PRINT RD $ ; "人事 档 案 ,R0" 

INPUT M: PRINT DV 

COT 一:0:T 一 0 

PRINT CHR$ (12): VTAB (4) HTAB (10) PRINT "之 
s 打 印 功能 汪 s" 


VTAB (6): HTAB (10): PRINT "1. 打印 职工 花 名 册 " 
VTAB (7): HTAB (10): PRINT "2. 返回 主 菜单 ? 
VTAB (9): HTAB (10): INPUT "请 选择 ;”;K 
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10 
20 


214 
26 
32 
50 
60 
65 
66 


72 


80 


83 
81 


85 


88 


ON K GOTO 120,900 

PRINT CHR $ (12):VTAB (4):， HTAB (10) :PRINT 
“ 现 有 记录 总 数 :"M 

VTAB (5): HTAB (10): INPUT "和 欲 打 印 的 起 止 记 
录 :";， R1,R2 

IF R1 <1 OR R2 > M THEN PRINT CHR $ (7 )， 
GOTO 120 

GOSUB 1300: PRINT CHR$$ (12) 

T = 1: GOSUB 5152 

FOR I 王 R1 TO R2 

PRINT D$ : PRINT RD 和 $ ;” 人 事 档 案 ,R2 ;TI 

FORJ 一 0ToO17: INPUT X$(J): NEXTIJ 

IF COT 一 > 0 AND INT (COT / 20) = (COT) / 20 
THENT 一 T 十 1: GOSUB 5152 

PRINTZ$(VAL (XS$(0))); TAB(6)i173Z$(0VAL 
(X$(8))); TAB( 15)371"3Z$COVAL (XS$(CL))); 
SPC( 0) 入 |" 又 $(2); 


IF LEN (X 和 $(2)) < 9 THEN 185 

PRINT SPC( 9 一 LEN (X$(2)))j|"3Z$(CVAL (X 

$(3)))i71"3Z$CVAL (X 和 (4))) 和 "5X$(C5)5 SPC 

(6 一 LEN (X$(5))); ;3X$ (6);: GOTO 188 

PRINT SPC( 0)j123Z$CVAL (XV$ (3)))37123Z$ 

VAL (X$(C4)))i|"3XS$(05)， SPC(6 一 LEN (X 

$$(5)))37|"3X 和 (6); 

PRINT |";X$(7)j1735Z$CVAL (X$(C10)7)7 和 7173 
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189 


190 


200 


202 


330 
335 
900 
1210 


12195 


X$(11);SPC(6 一 LEN (X$(C11))7 和 173 

IFVAL (X$(14)) < 4THEN PRINT X$(12737| 
|";X$(13);， :GOTO 200 

PRINT X$(12); SPC( 6 一 LEN (X$(12)))37|232 

$CVAL (X$(14)))37 23X 和 (13); 

PRINT SPC(6 一 LEN (X$(13)))3|";X 和 (15); SPC 

《6 一 LEN (X 和 $(15)))i "3Z$(CVAL (X$(16))) 

PRINT (3; Ti) TAB(7)i|73X$(9); TAB(C 15)? 

1";X$(17); SPC( 10 一 (CLEN (X$ (17)))); 

PRINT ”| | | 1 | 1 | | | 

| | | | 

COT 一 COT 十 1 

IF I 一 R2THEN'GOSUB 4000, GOTO 330 

IF INT (COT / 20) = COT / 20 THEN GOSUB 4000， 

GOTO 330 


PRINT "一 一 一 十 一 一 一 十 十 一 一 一 十 - 
十 一 十 一 一 一 十 一 十 一 一 十 一 一 十 一 一 一 十 一 一 一 + 
十 二 一 一 十 一 一 一 十 一 一 


X 一 FRE (0): NEXT TI， POKE 1659 ,1 

GOSUB 1210: GOTO 40 

PRINT CL$ ;人 事 档 案 ": PRINT DS ;"RUN H7" 
PRINT CHR 和 $ (18): PRINT CHR 和 (18) :PRINT "其 
计 ”;COT 光 人 ": PRINT CHR 和 $ (19): POKE 1659,0 
PRINT CHR$ (12): VTAB (5):， PRINT TAB ( 12); 
“应 查 人 数 :"”;R2 一 RLI 十 1 
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1216 
1220 
1230 
1240 
1300 


1301 


1302 


1309 


1310 


1330 


1340 


2220 


2230 


2240 


2250 


4000 


VTAB (6) : PRINT TAB( 12);" 实 查 人 数 :”T 

VTAB (7): PRINT TAB( 12);" 查 找 率 :";LVi7 %7 
VTAB (9): PRINT TAB( 10);" 按 任意 键 继续 进行 " 
PRINT CHR $ 〈19): RETURN 

VTAB (11);，PRINT "” 按 ": VTAB (11); HTAB (3)， 
PRINT "C" :， VTAB (11): HTAB (4):，PRINT "t ; 
VTAB (11): HTAB (5):， PRINT "rw 

VTAB (11): HTAB (6): PRINT "|": VTAB (11) ; 
HTAB (7)，PRINT ”"”:，VTAB (11);, HTAB (8 )， 
PRINT "Sv 

VTAB (11);， HTAB (9): PRINT " 停 *: VTAB (11)， 
HTAB (11):， PRINT " 止 ";VTAB (11):， HTAB (13)， 
PRINT ”, 

VTAB (11)， HTAB (15)， PRINT " 按 "， VTAB (11) ， 
HTAB (17): PRINT " 任 ” 

VTAB (11); HTAB (19):， PRINT " 意 "” : VTAB (11) 
HTAB (21): PRINT " 键 " 

VTAB (11): HTAB (23): PRINT " 继 " ， VTAB (11 ) 
HTAB (25): PRINT " 续 ” 

RETURN 

INPUT "今天 是 ? 年 ? 月 ? 上 日 "; YER,YUE ,DAY 
INPUT "要 打印 吗 (Y/N)?";YAV$ 

RETURN 

IF YA 和 $$ 一"Y" THEN PRINT "准备 好 打印 机 后 按 任 


意 键 " : PRINT CHR $ (19) : RETURN 
PRINTY 二 一 二 二 一 一 一 二 一 一 二 一 一 圭一 一 一 圭一 


4001 
4005 
4010 


5152 
5153 


51514 


5155 


5156 


5157 


5158 


5159 


EL -| 计 二 人 


有 


PRINT 
PRINT "累计 ";COT jw 人 " 

FOR 本 = 1 TO 23: PRINT : NEXT J， PRINT CHR ! 
(19): RETURN 

POKE 1659,2: POKE 2043 ,120 

PRINT TAB( 24);" 干 部 名 册 " 


POKE 1659,，1:，POKE 2043,，120，POKE 1915, 0; 
PRINT 

PRINT “填报 单位 :大 佛 市 红 十 字 会 医院 ";，SPC 
(18); 截 止 时 间 :1992 年 11 月 25 日 ";SPC( 22)3 
第 ";T 刀 页 ” 


PRINT "一 一 一 下 一 一 一 一 一 一 一 一 工 
二 
二 工 工 


PRINT ;” | 现任 职 | 专业 技术 职 | | 性 | 民 | 出 
生 | 年 | 籍 | 最 高 | 毕 业 | 参 加 工 | 党 团 | 加 入 | 标 

准 | 

PRINT ”部门 | 务 及 任 | 称 (职务 )| 姓 名 | | | 
| | | | | | | | | 其 

他 " 

PRINT | 职 时 间 1| 及 聘任 时 间 | | 别 1 族 | 年 

月 | 龄 | 贯 | 学 历 | 时 间 | 作 时 间 | 名 称 | 时 间 | 工 资 
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第 六 章 “医院 工资 管理 系 双 


本 软件 天 用 于 600 人 以 下 的 单位 使 用 ,最 大 金额 不 能 超 
过 99999. 99 元 ,能 打印 单位 工资 汇总 报表 ,各 部 门 工资 报表 ， 
个 人 工资 条 等 , 比 人 工 计算 工资 省 时 省 力 ,功能 完善 ,使 用 方 
便 , 该 软件 已 正常 使 用 五 年 多 , 深 受 用 户 喜 爱 。 

(一 ) 建 立 随机 文件 

首先 建立 并 运行 以 下 程序 ,建立 随机 文件 : 


10 
20 
30 
40 
50 
60 


INPUT“ 文 件 名 :”;F$ 

DJ$ 一 CHR$(4) 

PRINT DS$ ;"OPEN" ;FJ$ 和 ,L130/ 
PRINT D$ ji"WRITE" ;FS$ 入,R0y 
PRINT 0 

PRINT D $ ;CLOSE ;F 册 


RUN( 回 车 ) 
文件 名 :工资 表 ( 回 车 ) 
(二 ) 主 菜单 功能 


1. 定义 项 目 5 
2. 增添 记录 6. 查询 记录 
3. 修改 记录 7 
4 删除 记录 8 


. 统计 计算 


. 打印 报表 
. 退 出 


(三 ?定义 项 目 
在 主 菜 单 提 示 下 键入 “1? 后 即 进 行 初始 化 操作 :定义 项 目 
名 称 。 本 系统 设置 20 个 横 栏 项 目 , 其 中 科 别 、. 职 别 . 姓 名 、 应 发 
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工资 合计 、 应 扣 工资 小 计 和 实 发 工资 各 占 一 项 ,已 经 定义 。 其 
余 14 个 项 目 留待 用 户 自己 定义 ,每 个 项 目 由 2 一 4 个 汉字 组 
成 , 占 8 个 字符 宽度 ,不足 4 个 汉字 时 ,汉字 之 间 以 空格 补足 
8 个 字符 。 其 中 ,应 发 工资 6 项 ,应 扣 工资 8 项 , 待 全 部 项 目 定 
义 完毕 ,系统 自动 将 项 目 名 称 存盘 ,然后 返回 主 菜单 ,以 后 一 
般 不 再 定义 。 

(四 ) 增 添 记录 

在 主 菜单 提示 下 键入 “2" 后 , 即 可 按 屏 幕 提示 ,反复 逐 人 
逐 项 输入 工资 数据 ,每 输入 一 人 数据 ,系统 自动 存 入 磁盘 ,不 
再 输入 时 按 “RETURN” 键 返回 主 菜单 。 

(五 ) 修 改 记 录 

在 主 菜单 提示 下 键入 “3” 后 ,系统 进入 修改 状态 ,可 进行 
逐 人 逐 项 , 某 项 数据 统一 加 减 或 某 项 数据 统一 清 零 等 修改 操 
作 , 修 改 时 ,屏幕 出 现 提 示 : 

例 : 

请 修改 第 95 记录 ( 罗 太 模 ) 

(基本 工资 ) : 原 为 127. 00 

改 为 136. 00 

各 项 目 编号 代码 如 下 : 科 别 一 0; 职 别 一 1; 姓 名 一 2; 应 发 
工资 一 3 一 8; 应 扣 工 资 一 9 一 16; 应 发 工资 合计 一 17; 应 扣 工资 
小 计 一 18; 实 领 工资 金额 一 19。 

(六 ) 删 除 记录 

在 主 菜 单 提示 下 键入 “4" 后 系统 进入 删除 状态 ,再 键入 需 
要 删除 的 记录 号 即 可 达到 目的 。 

(七 ) 统 计 计算 

在 主 菜 单 的 提示 下 键入 “5" 后 系统 进入 统计 状态 ,再 键入 
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需要 统计 的 起 . 止 记 录 号 ,等 待 一 定时 间 , 屏 幕 出 现 提示 句 : 
“需要 打印 吗 (YVN)”, 此 时 回答 “Y”, 立 即 打 印 统计 结果 ,回答 
“N”, 则 只 在 屏幕 上 显示 统计 结果 。 

〈 八 ) 查 询 记 录 

在 主 菜单 的 提示 下 键入 “6?” 后 进入 查询 状态 ,根据 屏幕 提 
示 实 现 按 记 录 序 号 查询 或 按 项 目 代 码 查 询 (项 目 代码 同 前 ) 。 

〈 九 ) 打 印 报表 

在 主 菜单 的 提示 下 键入 “7”, 进 入 打印 状态 ,根据 屏幕 提 
示 , 依 次 回答 “单位 名 称 >“ 科 别 ?"“ 打 印 日 期 ?等 项 目 后 ,分 科 
打印 “工资 报表 ”, 最 后 打印 各 科 总 计数 据 , 然 后 显示 职工 总 
数 . 打 印 总 数 的 打印 率 , 若 职工 总 数 与 打印 总 数 不 相等 , 则 显 
示 误 差 人 数 ,提请 您 查找 误差 原因 。 

打印 “个 人 工资 条 ”时 则 不 分 科 , 按 记录 序号 依次 打印 。 


图 6.1 工资 管理 系统 流程 图 
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(十 ) 退 出 
在 主 菜单 的 提示 下 键入 “8”, 屏 幕 显示 “请 关机 ,再 见 !”， 


此 时 若 要 再 作 其 他 操作 则 必须 关机 后 重新 启动 。 


工资 管理 系统 流程 图 ,如 图 6-1 所 示 
医院 工资 管理 系统 程序 清单 : 


程序 名 :HI 


10 


20 


30 
40 
50 
60 


70 


80 


90 
95 


HOME ; PRINT CHR $ (18) :PRINT CHR $ (18):PRINT 
CHR $ 〈4); "PR 并 37 

HOME :PRINT TAB(6); :FOR J 一 0 TO 11: PRINT'" 
争 "; :NEXT 

PRINT : PRINT TAB (6);" 售 "“;SPC(20) 和 全 

PRINT TAB(6);"” 旬 微机 工资 管理 系统 售 ” 

PRINT TAB(6) 和 旬 "; SPC(20) 和 全 " 

PRINT TAB (6); :FOR J 一 0 TO H : PRINT" 急 " ; :NEXT 
:; PRINT 

PRINT : PRINT : PRINT TAB(7) 刀 四 川 某 市 红 十 字 会 
医院 ” 

PRINT : PRINT TAB(11);i 一 九 八 八 年 八 月 " 

FOR TI 王 1 TO 3000: NEXT:PRINT:PRINT 

PRINT TAB(8); 欢 迎 您 使 用 以 


100 PRINT CHRS$ (4);"RUN APC" 


程序 名 :APC 


10 
20 


ONERR GOTO 20 


DIM AS$(16) 
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60 

95 

100 
110 
120 
125 
130 
140 
150 


160 
165 
170 
175 
180 
185 
190 
200 


210 
270 
280 
300 


310 
320 


D$= CHR$ (4):PRINT CHR$(12) 
PRINT 7“ 处理 方式 :" :PRINT 

PRINT "1. 定义 项 目 .工资 统计 ” 
PRINT "2. 增添 记录 6. 查询 记录 “ 


C71 


PRINT "3， 修改 记录 7 打印 报表 
PRINT “4， 删除 记录 8. 退 出 


PRINT 
INPUT "请 选择 (1 一 8) :”;K 
IFK < 1ORK> 8THEN PRINT CHR $ (7):， GOTO 
140 
ON K GOTO 270 ,165,170,175,180,185,190,200 
PRINT DS$;7RUN AAA 
PRINT D$;"RUN MO" 
PRINT D$ ;"RUN DEY" 
PRINT DV$;"RUN GZTJ" 
PRINT D$ ;RUN KKKY" 
PRINT D$ ;"RUN PPPy 
PRINT CHR $ 〈12) : PRINT : PRINT : PRINT : PRITNT 
TAB(10) 密 请 关机 ,再 见 几 
PRJNT CHR $ (19): GOTO 200 
OPd$ =Dd$ 十 "OPEN" :CL$ 一 D9$ 十 "CLOSE" 
RDV$ 王 D$ 十 "READ":WRV$ 王 D 和 $ 十 "WRITE 
PRINT CHR$ (12): PRINT "定义 项 目 名 称 ( 应 发 工资 
6 项 ,应 扣 工 资 8 项 六 
FORI 一 3TO 16 
PRINT "第 ";I 一 2;" 项 "“; :INPUT A$(I) 
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330 NEXT1I 

340 PRINT OP$ ;项 目 ";”,L130" 

350 PRINT WR $Y" 项 目 ";” ,Ri1 

360 FORI 王 3To16 :PRINTAS$CI): NEXTI 
370 PRINT CL$;" 项 目 " 

380 GOTO 60 


程序 名 : AAA 


5 

10 
20 
30 
32 
33 


314 
35 
40 
50 
60 
70 


75 
80 
83 


ONERR GOTO 35 
D 和 4 =CHR$ (4): DIM A$(18) 
OP$ 王 DJ$ 十 "OPEN" :;CL$ 一 DJ 十 "CLOSE 
RD 和 $ 王 D4 十 ”READ :WRV$ = D94 十 "WRITE" 
PRINT OP$ ;项 目 " 罗 ,L1307 
PRINT RD S$j 项 目 "j Ri 1:，FOR I 一 :3 TO 16: 
INPUT A$(TD: NEXTI 
PRINT CLS$ ;项 目 " 
PRINT CL$ ;工资 表 " 
PRINT OP$ ;工资 表 " ;7 ,L1307 
PRINT RD $ ;工资 表 " ji" ,R0" : INPUT M 
M 一 M 十 1: PRINTDV$: PRINT CHR$ (12) 
PRINT ”请 输入 第 ";M;” 个 职工 的 内 容 ( 连 续 按 Return 
键 作 为 结束 ):” 
INPUT " 科 别 :";KBV$ 
INPUT " 职 称 ;";ZB$ 
IF KB$ 一 ”" "AND ZB$ 一 ”THEN 290 
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85 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
193 
196 
200 
205 
210 
220 


230 
240 
250 
260 
270 
280 


IF VAL (ZB$ ) 到 
CHR $ 〈7) :GOTO 
INPUT " 姓 名 :”;X 
PRINT A$$(3);; 
PRINT AS$(4);; 
PRINT AJ$(5);: 
PRINT ASJ$(6);， 
PRINT AS$ (7);; 
PRINT AS$(8);; 
PRINT A 有 (9);: 
PRINT A$(10);: 
PRINT 入 $ (11);: 
PRINT AJ$(12);: 
PRINT A$(13);: 
PRINT A$(14); : 
PRINT 入 $ (15);: 
PRINT A 甩 (16);: 
PRINT WR $ 刀 工 


PRINT KB $:， PRINT ZB $ :PRINT XM 和 ，PRINT 


BG $ 
PRINT LT$ ， PRI 
PRINT QT$ : PRI 


PRINT WR 和 $ ;" 工 
GOTO 60 


1ORVAL (ZB$)> 5 THEN PRINT 


80 
M 
INPUT BG $ 
JINPUT LTS$ 
INPUT GLSY 
INPUT HT 有 $ 
INPUT QTS 
INPUT FZJ$ 
INPUT DFS$ 
INPUT SF $ 
INPUT YFS$ 
INPUT GHS$ 
TNPUT BJV$ 
INPUT BXS$ 
INPUT TX $ 
INPUT QQ $ 
资 表 ,RM 


NT GL$ : PRINT HTSY 

NT FZ$ ,， PRINT DFW 

PRINT SF$ : PRINT YR$ : PRINT GHSV$ 

PRINT BJJ$ : PRINT BX $ : PRINTTX 和 : PRINT QQ8 
资 表 ,R0" : PRINT M 


290 
300 


PRINT CL$ ;工资 表 " 
PRINT D $ ;"RUN APC/ 


程序 名 :KKK 本 沁 记 尖 


5 
10 
13 


16 
20 
30 
314 
36 


38 
39 
40 
50 
60 
70 
80 
90 
95 
100 


ONERR GOTO 39 


DIM A$ (17),B$ (17);DS$ = CHR (4) 
ZB$(I) 一" 高 级 ":ZB$(2) 一 "中 级 ":ZB $ (3) 一 
“初级 ” 
ZB$(4) 一 "7":ZB$(5) 一 "工人 " 
OPV$ 王 DS$ 十 "OPEN" :CL$ 王 DV$ 十 "CLOSE 
RD 和 $ 一 D$ 二 "READ":WR$=DV$ 十 "WRITE" 
PRINT OPS$ ;项 目 ";j，,L130" 
PRINT RD $ ;项 目 ";,R";1:FOR I 一 3\16:INPUT B 
$(T) :NEXTI 用 
PRINT CL$ ;项 目 " 
PRINT CL$ ;工资 表 /" 
PRINT OP $ ;工资 表 ,L130" 
PRINT RD $ ;工资 表 ,R0" 
INPUT M:PRINT DV 
PRINT CHR $ (12) :PRINT" 查询 方式 :” 
PRINT "1. 查询 个 人 工资 情况 " 
PRINT "2. 查询 某 项 满足 某 指 标的 所 有 人 员 的 情况 ” 
PRINT "3. 退出 ” 
INPUT "请 键入 所 需 的 方式 号 :”;K 
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110 


120 


125 


130 


132 


1314 


136 


138 


140 


150 


160 


162 


1614 


170 
180 


190 
200 


ON K GOTO 120,340,550 

PRINT CHR $ (12) :PRINT" 现 有 记录 总 数 :”";M 
INPUT "要 查询 的 起 止 记录 号 :”;R1,R2 

IF RI <1ORR2 > MTHEN PRINT CHR 和 $ (7) ;GOTO 
120 

VTAB (11) ;PRINT" 按 " : VTAB(11) :HTAB (3) :PRINT 
" 任 " 

VTAB (11):HTAB (5) :PRINT " 意 ":VTAB(11) :HTAB 
(7) :PRINT:“ 键 " 

VTAB (11) :HTAB (9) :PRINT " 继 " :VTAB (11):HTAB 
(11) :PRINT 续 " 

VTAB (11);， HTAB (13):PRINT " 进 ":VTAB (11) ; 
HTAB (15) :PRINT " 行 " 

FOR I 一 RITO R2 

PRINT RD$ ;工资 表 ,R" iT 


'FORJ 王 0ToO16:INPUT A$(J): NEXTJ 


XJ = 0: FOR J= 9 TO 16:XJ 一 XJ 二 VAL (A$ (J) ); 
NEXT J 
HJ=0:FOR J 王 3 TO 8:HJ 王 HT 二 VALCAS$ (J) ):NEXT 
J 杂 
PRINT D$ :PRINT CHRJ$ 〈12) 
PRINT STR $ (Dj 号 ";TAB (6);A$(0);” 7"ZB$( 
VAL (A$(1))); 
PRINT TAB(19);" 应 扣 小 计 ”;XJ 
PRINT " 姓 名";A$(2);TAB(19);B$(9);” "3A 
$ (9) 
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250 


260 


270 


280 


290 


300 


310 


320 
330 


340 


350 


355 
360 
365 
370 
380 


PRINT "应 领 合 计 ";HJ;TAB (19);B$(10);” ”3;A 
$(10) 

PRINT B$(3);"";AJ$(3);TAB(19);B$(11); ”73A 
$(11) 

PRINT B$(4)i” 3AS$S(4);TAB(19)3B$(12); 7 23;A 
$ (12) 

PRINT B$(5);” "ASJ$(5);TAB(19);B$(13);7 35A 
$(13) 

PRINT B$(6);”"3;AJ$(6);TAB(19);B$$(14);” ”5A 
$(14) 

PRINT B$(7); "3;AJ$(7);TAB(19)3BJ$$(15): ”5A 
$(15) 

PRINT B$(8)i7 "3AJ$(08)3TAB(19);B 和 (16) 科 
$ (16) 

PRINT TAB (19);" 实 领 工资 "5;HJ 一 XJ; 

GET WwWg$ :PRINT : NEXT I;, PRINT CHR $ (18) :GOTO 
70 

INPUT "请 输入 要 查询 的 项 目 号 (合计 一 17, 小 计 一 18， 
实 领 工资 一 19)” ;IT 

IFIT<0ORIT > 19THEN PRINT CHR $ (7):GOTO 
340 

PRINT CHR $ 〈12) :PRINT " 现 有 记录 总 数 :";M 
INPUT "该 项 目 要 查询 的 记录 范围 :";R1,R2 

PRINT CHRJ$ (12) 

COT = 0: FOR TI= RITOR2 

PRINT RD 和 $ ;" 工 资 表 ,Ri;T 


了 


。 300 ， 


390 
400 
410 
420 


430 
440 
450 
460 
470 


480 


490 
500 


505 
510 
515 
520 


530 
540 


545 


FORJ 一 0Tol16:,INPUT A$ (J):NEXT IJ 
IF IT <17 THEN KEY = VAL (A$ (IT)):GOTO 490 
IF IT >17 THEN 440 
KEY 一 0;FOR J 一 3TO 8:, KEY 一 KEY 十 VAL (A， 
$(J)) 
NEXT J， GOTO 490 
IF IT > 18 THEN KEY 王 0 GOTO 470 
KEY 一 0;FORJ 一 9TOoO 16 
KEY 一 KEY 十 VAL (A$(J)):NEXT J;GOTO 490 
FORJ 一 3TOoO 8: KEY 一 KEY 十 VAL (A$(CJ)): 
NEXT J 
FORJ 一 9TO16: KEY 一 KEY 一 VAL(AJ$(J)): 
NEXT J 
IFIT <0ORIT > 19THEN 540 
PRINT LI" 号 ";TAB(7)?ZB94 (VAL (A$(1)))7TAB 
(13)3AJ 和 (2); 
IF IT <2 THEN PRINT TAB(21)3A$(IT); 
IF IT 之 2 THEN PRINT TAB(21) 和 元”; 
COT = COT 十 1 
IF INT (COT /10) 一 > COT /10 THEN PRINT : GOTO 
540 
PRINT CHR $ (19) :PRINT 
X = FRE (0) :NEXT I:PRINT " 共 ”";COT3i"” 人 ( 按 任意 
键 继续 进行 )”# 
PRINT CHR $ (19) ;PRINT :PRINT D$:GET WwWf: 
GOTO 70 
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550 PRINT CL$ ;工资 表 " 
560 ”PRINT D$ ;"RUN APC" 


程 


D 中 王 


序 名 :MO 

ONERR GOTO 39 
DIM A$(16),MC$ (16):D$ 一 CHRS$ (4) 

MC $ (0) 一 ” 科 别 ":MCS$ (1) = 一" 职 称 ”: MC 
$ (2) 一 " 姓 名 "” 

OP$=D 和 $ 十 OPEN" :CL$ 过 DJ$ 十 "CLOSE% 
RDS$=DS$ 十 "READ":WRS$ 王 D$ 十 "WRITE" 
PRINT OP$ ;项 目 ";,L130" 

PRINT RD$ ;项 目 ";",R";1:FORT 一 3TO 16:INPUT 
MCS$ (TD :NEXT1I 

PRINT CL$ ;项 目 " 

PRINT CL$ ;工资 表 " 

PRINT OP$ ;工资 表 ,L130/ 

PRINT RD$ ;工资 表 ,R0" ;INPUT M:PRINT D9 
PRINT CHR $ (12) :PRINT "修改 方式 :" 

PRINT "1. 逐 人 逐 项 修改 文件 内 容 ” 

PRINT "2. 对 某 项 内 容 统一 加 减 某 一 值 

PRINT "3. 对 某 项 内 容 统一 清 零 " 

PRINT "4. 退出 " 

INPUT "请 选择 :(1 一 4)”;K 

IFK<<1ORK>>14THEN PRINT CHR$(7); GOTO 80 
ON K GOTO 100,210,320,440 
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100 
102 
105 


110 
115 


116 
120 
130 
1140 
150 


160 
170 
1795 
180 
190 
200 
210 


220 


225 


230 
240 


PRINT CHR (12) :PRINT " 现 有 记录 总 数 :"”;M 

INPUT "请 输入 要 修改 的 起 止 记录 号 :”;R1L,R2 

IF R1 < 1OR R2 之 MTHEN PRINT CHR $ (7) ; 

GOTO 100 

INPUT "请 输入 要 修改 的 起 止 项 目 号 :";T1,T2 

IF II 一 0OR1I2 > 16THEN PRINT CHR $(7): GOTO 

110 

PRINT CHR 和 $ (12) 

FORT 一 RTOR2 

PRINT RDS$ ;工资 表 ,R7iT 

FORJ 了 一 0TO16:INPUT A$(JD):NEXTIJ 

PRINT D $ : PRINT “请 修改 第 ";T "条 记录 ;(";A 

$ 27 和) 

FORJ 一 IITOI2 

PRINT MC$ (J): 原 为 ";A$ (J) 

PRINT 改 为 "; :INPUT AS$ (J) 

NEXT J:; PRINT WR $ 光 工 资 表 ,R" ;IT 

FOR J 一 0 TO 16:PRINT Ad$ (J) :NEXT J 

X 一 FRE (0) :NEXT I: PRINT D$ :GOTO 50 

INPUT "请 输入 要 修改 的 项 目 号 及 要 加 的 值 ( 减 值 输入 

负 值 ):";IT,V 

IFIT<0ORIT > 16THEN PRINT CHR 和 (7):GOTO 

210 

PRINT CHR $ (12) :PRINT " 现 有 记录 总 数 :”;M 

INPUT 请 输入 要 修改 的 起 止 记录 号 :";R1,R2 

IF R1 < 1 OR R2 > M THEN PRINT CHR $ 〈7) 
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250 
260 
270 
280 
290 
300 
310 
320 
330 


335 
340 
350 


360 
370 
380 
390 
400 
410 
420 
430 
440 


GOTO 230 

FORT 一 RITOR2 

PRINT RD$ ;工资 表 ,R" iT 

FORJ 王 0TOo 16:INPUT A$(J):NEXTJ 

A$ (IT) = STRS$ (CVAL (A$(IT)) 十 V) 
PRINT WR$ ;工资 表 ,R2 3;T 

FORJ 了 一 0TO16: PRINT A$(J):NEXTJ 

X 一 FRE (0) :NEXT I: PRINT D$ : GOTO 50 
INPUT "请 输入 要 清 零 的 项 目 号 :”;IT 

IF IT <0OR IT > 16 THEN PRINT CHR $ (7): GOTO 
320 

PRINT CHRV$ (12) :PRINT " 现 有 记录 总 数 :”;M 
INPUT "请 输入 要 清 零 的 起 止 记录 号 :”;R1,R2 
IF R1 < 1 OR R2 > M THEN PRINT CHR $ (7)， 
GOTO 340 

FOR IT 一 RITOR2 

PRINT RD$ ;工资 表 ,R" ;TI 

FORJ 一 0TOoO16:INPUT A$(J): NEXTJ 

AJ$ (IT)= 王 ”7 

PRINT WRS$ ;工资 表 ,R2 iT 

FORJ 了 一 0TO16: PRINT A$(GJ):NEXTJ 

X 又 王 FRE (0):NEXT I; PRINT D$ :GOTO 50 
PRINT CL$ ;工资 表 " 

PRINT D$ ;"RUN APC" 
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程序 名 :DE 


10 
20 
30 


100 
110 


130 
140 
150 


160 
180 
190 


DIM A$(16):D$ 王 CHRS$ (4) 

OP$ 王 D$ 十 "OPEN":CL$ 王 DV$ 十 "CLOSE 
RD 和 王 D 和 4 十 "READ7:;WR 和 $ =DV$ 十 "WRITE" 
PRINT CLV$ ;工资 表 " 
PRINT OP$ ;工资 表 ,L130" 

PRINT RD $ ;工资 表 ,R0 : INPUT M: PRINT DV$ 
PRINT CHR$ (12): VTAB (4) :HTAB (5): PRINT “ 现 
有 记录 总 数 :";M;" 人” 

VTAB (5): HTAB (5): INPUT "请 输入 要 删除 的 记录 
号 :;"; REC 

IF REC <<1 OR REC > M THEN PRINT CHR $ (7 ) : 
GOTO 60 

IF REC 王 M THEN 140 

FOR I 二 REC 十 1 TO M 

PRINT RDV$$ ;工资 表 ,R" iT 

FORJ 王 0TO 16:INPUT A$(J): NEXTI 

PRINT WR$ 刀 工 资 表 ,R7" ;TI 一 1 

FORJ 王 0TO 16:PRINT A$(J): NEXTJ 

NEXT I 

PRINT WR$ 和 ;工资 表 ,R0": PRINT M 一 1 

PRINT D$ :, VTAB (6): HTAB (5): INPUT "还 要 删除 
四 ?";YAO 

IF YAO$ 一"Y" THEN 40 

PRINT CL$ ;工资 表 " 

PRINT D$ ;"RUN APCY 
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程序 名 :GZTJ 


10 


30 


40 


140 


325 


DIM A$(16),B$(16),SUM (16)，TT(16),U(16) 
DJ$ = CHR $(4) 
OP 和 $ 王 D$ 十 "OPEN" :CL$ 一 D9$ 十 "CLOSE" 
RD 和 $ 王 D 和 十 "READ" ;WR$ 一 D$ 十 "WRITE" 
PRINT OP$ ;项 目 ";，L130" 

PRINT RD $ ;项 目 "j" ,Ri 1 FOR TI = 3 TO _16， 
INPUT B$ (TIT): NEXTI 
PRINT CL$ ;项 目 " 
PRINT OP$ ;工资 表 ,L130" 
PRINT RD $ ;" 工 资 表 ,R0" 

INPUT M: PRINT D$ :PRINT CHRJ$ (12) 
VTAB (4) :THAB (14) :PRINT "工资 统计 "” 

FORJ 一 1TO16:TT(GJ) 一 0; NEXTJ 

VTAB(6): HTAB(12):INPUT " 按 [2] 开 始 统计 ”3;K 
IFK <<> 2 THEN PRINT CHR$ (7): GOTO 550 

H 王 H 二 1 

PRINT CHR$ (12): VTAB (5)， HTAB (4): INPUT " 
请 输入 要 统计 的 起 止 记录 号 :”;R1,R2 

IF R1 < 1OR R2 > MTHEN PRINT CHR$ (7); 
GOTO 160 

FORJ 一 0TOo16:SUM (J) = 0: NEXTJ 

S 一 0: FORI 一 RITOR2 

PRINT CHR $ (12): VTAB (5):， HTAB (17)， PRINT 
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4295 


600 


605 


TI; GOSUB 1000 

FORJ= 1TO16:INPUT A$(J):NEXTJ:S=S 二 1 
HJ = 0: FORJ= 3ToO8:HJ= INT ((HJ 十 VAL (A 
$(J)))x*x10 ”2 十 0.5)/10” 2:NEXTJ 

FORJ= 1TO 6: SUM(J) 王 INT(SUM (J) 十 VALCA 
$(J 十 2))) x* 10” 2 十 0.5)/10* 2;NEXT J:SUM(0) = 
INT ((SUM (0) 十 HJ) *10 ”2 十 0.5)/10”2 
XJ= 0;FOR J 一 9 TO 16;XJ 一 INT(CXJ 十 VAL(A 
$(J)))x10* 2 十 0.5)/10” 2:NEXTJ 

FORJ 二 8TO 15: SUM (J) = INT ((SUM (J) 十 VAL 
(Ad$(J 十 1))) x 10” 2 十 0.5)/10” 2:NEXT J:SUM(7) 
一 INTC(CSUM(7) 十 XJ) x 10” 2 十 0.5)/10” 2 
SL=INT(CCHJ 一 XJ) x 100 十 0.5)/100 

SUM (16) = INT ((SUM (16) 十 (HJ 一 XJ)) x 10* 
2 十 0.5)/10” 2 

X 一 FRE (0):NEXTI 

FORJ= 0TOo 16:TT(J)= INT ((TT(J) 十 SUM(J)) 
x*10” 2 十 0.5)/10” 2:NEXTJ:T = TS 

GOTO 721 

PRINT CL$ ;7 工资 表 " 

PRINT; D 和 $ "RUN APC" 


PRINT "一 一 一 一 十 十 一 十 一 一 一 一 
十 一 一 一 一 十 一 一 一 一 十 一 一 一 一 十 一 一 一 一 十 一 一 
一 一 十 一 一 一 一 十 十 一 一 一 一 十 "1 

PRINT "一 一 一 一 十 一 刷 才 和 营 二 三 玉 关 帮 二 痉 
十 一 一 一 一 十 


7495 


750 


PRINT "一 一 一 一 十 一 一 一 一 4” 
RETURN 

PRINT CHR $ (12):VTAB (7):HTAB (7):PRINT " 准 
备 好 打印 机 后 按 任意 键 !" :PRINT CHRJ$ 〈19) 

POKE 1659, 0， POKE 1787, 0: POKE 1915, 0: POKE 
2043 ,120 


'POKE 1659,6;PRINT TAB(34);j 某 市 红 十 字 会 医院 职 


工 工资 统计 " 

POKE 1659,1 

PRINT " r 一 一 一 一 一 工 一 一 一 一 下 :FOR ] = 1 TO 
16: PRINT "一 一 一 一 下 ;:NEXT 了 

PRINT "一 一 一 一 下 一 一 一 一 31， 


PRINT " |";T 和 人 "3TAB(13)j| 总 计 |2"3;TT(0); 
TAB(33) ;7 |; 

FOR J 一 1 TO 15: PRINT TT(J) ;SPC(8 一 LEN(STR $ 
(CTT(J))))j |; :NEXT J，PRINT TT (16);SPC(8 一 
LEN (STR $ (CTTC16)))) 密 | | 

PRINT "上 一 一 一 一 一 十 ";:GOSUB 600 

FORJ= 0TOoO 16:; U(J)=INT (CTT(JJ) 人 MT) x* 100 十 0， 
5)/100:NEXT IJ 

PRINT "| "3;Tij 人”;TAB (13);" | 平 均 |";U(0); 
TAB(33) 和 |; 

FORJ = 1TO 15: PRINT U(J);SPC(8 一 LEN(CSTR $ 
(U(J))))i|"3 :NEXT J; PRINT U(16);SPC(8 一 LEN 
CSTRS$ (U(16))7)37| 忱 

PRINT "上 一 一 一 一 一 十 一 一 一 一 上 "; :FORJ= 1TO 
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760 
765 
770 


780 


790 


795 


800 


810 


820 


16:; PRINT "一 一 一 一 芋 ";: NEXT J 
PRINT "一 一 一 一 十 一 一 一 一 二 ? 

POKE 1659,0 

PRINT CHR $ 〈12) :PRINT:PRINT : PRINT TAB ( 
10) 刀 职工 总 数 :";M;" 人 ” 

PRINT TAB( 10):" 统 计 总 数 :”3;T 和 人 ” 

IFT < MTHEN 810 

IFT > 之 MTHEN 820 

PRINT TAB( 10); 统 计 率 :100967": PRINT CHR $ 
(19): GOTO 550 

PRINT TAB(6);" 漏 统计 ";M 一 T; 人 ,请 在 找 原因 !: 
PRINT CHR $ (19):GOTO 550 

PRINT TAB(6); 多 统计 "3;T 一 Mi 人 ,请 查找 原因 忆 ， 
PRINT CHR $ 〈19) :GOTO 550 


1000 PRINT RD 和 $ ;工资 表 ,R7;T: INPUT A$(0) 
1010 RETURN 


程序 名 :PPP 

10 DIM A$(16),B$(16),SUM(16),TT(16),U(16) 

20 ZB$(1) 一 “ 副 高 ";ZB 下 (2) 一 “中 级 ":ZB$ (3) 一 "初级 

30 ZB$() 一 ”  ”:ZB$(5) 一 "工人 ":T = 0:D$ 一 
CHR 和 $ (4) 

40 OP$ =D$ 十 "OPEN":CL$ 一 D$ 十 "CLOSE 

50 RD$ 王 D$ 十 "READ':WR 和 $ 王 Dd$ 十 "WRITE 

53 PRINT OP ;项 目 "j",L1307 
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100 
110 


135 


170 


PRINT RD $ji 项 目 ";”", Ri 1:， FOR 工 一 3 TO 16， 
INPUT B$ (ID) : NEXTI 


PRINT CL$ ;项 目 ” 
PRINT OP$ 工 资 表 ,L1307 
PRINT RD$ ;工资 表 ,R0" 
INPUT M, PRINT D$ : PRINT CHR$ (12) 
PRINT "打印 方式 :" 
FORJ 一 1TOoO16:TT(J)= 0:NEXTJ 
PRINT "1. 打印 工资 花 名 册 ” 
PRINT "2. 打印 个 人 工资 单 " 
PRINT ”3. 退出 
INPUT "请 选择 (1 一 3) :3;K 
IFK < 10ORK > 3THEN PRINT CHR$ (7): GOTO 
130 
IFK 一 3 THEN 550 
IFK 一 2THEN 139 
INPUT "请 输入 年 .月 .日 :;";YEA,MOH,DAY: INPUT， 
请 输入 单位 名 称 :";DNAS$ 
INPUT," 请 输入 科室 名 称 ? 〈 按 0 结束 )”;KB $ 
IF KB$ 一 "0"THEN 730 
H 一 H 十 1 
INPUT "请 输入 要 列表 (打印 ) 的 起 止 记录 号 :";R1,R2 


| 


IFRIL1<10ORR2>MTHEN PRINTCHR 下 (7) 


GOTO 160 
PRINT CHR$ (12):VTAB (7): HTAB (7): PRINT " 准 


"310 


备 好 打印 机 后 按 任意 键 !" :PRINT CHR$ (19) 
POKE 1659, 0， POKE 1787, 0， POKE 1915, 0: POKE 
2043,120 
FORJ 一 0TO 16:SUM(J) 一 0:NEXT J 
S 一 0: FORI 一 RITOR2 
IFK = 2THEN 265 
IF A$(0) < 之 KB$ THEN 179 
IF INT 〈S/35) 一 (S/35) THEN 180 
TFT 之 RITHEN 339 
POKE 1659,6 
IF H>1THEN 220 
PRINT TAB( 34): DNA$ 术 职 工 工资 花 名 册 " 
POKE 1659,1:PRINT TAB( 67); 
PRINT:PRINT 
POKE 1659,1:PRINT " 科 别 :”;KB$ ;TAB(80);YEA 记 
年 ";MOH;i 月";DAY 密 日; 
PRINT TAB( 76);i 单 位 :( 元 ) 
POKE 1659,1 
PRINT ”r 一 一 十 一 一 工 一 一 一 一 下 "; :FOR J 一 1 TO 
34: PRINT "一 “; :NEXT 
PRINT "一 ";: FORJ 一 1TO40: PRINT 7 一 "; : NEXT 
PRINT "一 一 一 一 下 一 一 一 一 一 一 一 一 -7 
POKE 1659, 1: IF K 一 2 THEN PRINT : PRINT : 
PRINT “| 编号 | 职 别 | 姓 名 |"; :GOTO 325 
PRINT "| 编 | 职 | 1";SPC(22)3" 应 ” 领 
区 2 
.311 


280 
290 
300 


305 


310 


315 


320 


325 


327 


PRINT SPC (24)j|”";SPC(37);" 应 扣 工 资 "; 


PRINT SPC(37) 入 |"5SPC(8) 和 | | 
PRINT "| | | 姓 名 Hi;FORJ= 1To6， 
PRINT "一 一 一 一 下 ";:， NEXT J，PRINT "一 一 一 一 
十 "5 

FOR JJ 一 17TO 8: PRINT 7 一 一 一 一 下 "3: NEXT J: 
PRINT "一 一 一 一 

PRINT " 实 领 工 资 | 领 款 人 小 

POKE 1659 ,1 

PRINT "| 号 | 别 | 人 


PRINT "| 合 计 |";: FOR J = 3To 8: PRINT B 
$ (J)i123 :NEXT J; PRINT "小 计 |"i 

IFK 一 2THEN FORJ 一 #9TO 16:; PRINTBV$ (J); 
|"; :NEXT J，PRINT " 实 领 工资":， GOSUB 
1000: GOTO 341 


330 FOR J 了 一 9TO 16: PRINT B$(J) 和 |";5:NEXT J: IF K 


335 
336 
337 
338 
339 
340 
341 
342 
3414 


一 1 THEN PRINT SPC (8) 密 | |”:GOTO 340 
PRINT " 实 领 工资 | 领 款 人 | 

POKE 1659,1 

IF I 玫 之 R2 一 1 THEN 339 

IFA$(0) = KB$ THEN GOSUB 1000:GOTO 340 
IFEAV$(0) <>> KB$ THEN GOSUB 1000: GOTO 341 
PRINT ”上 一 一 十 - -十 "3;: GOSUB 600:GOSUB 1000 
IFEK 王 2THEN 344 

IFASV$(0) <> KB$ THEN 460 

FORJ 王 1TO16:INPUT A$4(J) : NEXT J:S 一 S 十 1 
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: 353 


3514 


358 


360 


380 


390 


410 


425 


427 


HJ =0: FORJ 王 3TO8:HJ=INT(COHJ 十 VAL(CA 
$(J)))x* 10” 2 十 0.5)/10”` 2: NEXTIJ 
FORJ 一 1TOo6:SUM (J) =INT ((SUM (J) 十 VAL 
(A$(J 十 2)))x*10” 2 十 0.5)/10” 2:NEXT J:SUM 
(0) 王 INT((CSUM(0) 十 HJ) * 10” 2 十 0. 5)/10”、 2 
XJ = 0: FORJ 王 9ToO16:XJ 王 INT(CCOXJ 十 VAL( 
Ad$(J)))x* 10” 2 十 0.5)/10” 2:NEXTIJ 
FORJ 二 8To 15: SUM (J) = INT ((SUM (J) 十 VAL 
(A$(J 十 1))) xx 10” 2 十 0.5)/10 ”2:NEXTJ: 
SUM (7) = IJNT ((SUM (7) 十 XJ)x* 10 ”2 十 0.5)/ 
10” 2 
PRINT "|";T; TAB (7) 和 |"3ZB$CVAL (A$(1))); 
TAB(C 13); 12; 
PRINT SPC((12 一 LEN(CAJ$(12)))/3)5A$(2)5TAB( 
23);” | "; 
PRINT HJ; TAB(33)ji|";: FORJ 一 3TO8: PRINTA 
$ (J); SPC (8 一 LEN(A$ (JJ)))7 和 15:NEXT J;:PRINT 
XJ;SPC(8 一 LENCSTR 和 $((XJ) )) ;123 
SL=INT ((HJ 一 KJ) x* 100 十 0. 5)/100 
FOR 本 一 9To 16:， PRINT A$(J);SPC(8 一 LEN (A 
$ (J))); 12; :NEXT J，PRINT SL; SPC ( 8 一 LEN 
CSTR$ (CSL) ;| | 
SUM (16)=INT ((CSUM (16) 十 (HJ 一 XJ)) x* 10、 
2 十 0.5)/10、^ 2:IFK 一 2THEN 460 
FORJ 王 0TO 16:SUM(J) 王 INT ((SUM(J))x 10” 2 
十 0.5)V/I0” 2 
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430 
440 


455 
460 
463 
4614 


470 


480 


490 


495 


500 


550 


560 


600 


605 


610 


IF INT (SV35) <>> (S/35) THEN 460 

PRINT ”上 一 一 十 一 一 上 上 "3;: FORJ 一 1TO 17: PRINT 
"一 一 一 一 上 "3;: NEXT J; PRINT "一 一 一 一 廿 一 一 一 
PE 和 

IFK 一 1THEN FOR J 一 1TOl17: PRINT : NEXTJ 
又 一 FRE (0): NEXT IT: GOSUB 700 

PRINT "上 一 一 二 一 一 上 上 ”";:GOSUB 600 

PRINT "|"3;Si 人 "TAB( 13); | 小 计 |"SUM(0); 
TAB( 33) ;| 


FORJ 一 1TO15:, PRINT SUM (J); SPC(8 一 LEN ( 
STR $ (SUM(J)))) 和 1273: NEXT J: PRINT SUM ( 
16); SPC( 8 一 LEN (STR $ (SUM(16))))32| | 
PRINT "上 一 一 一 一 一 一 一 一 一 一 -上 "3;;FORJ= 1TO 
16: PRINT "一 一 一 一 上 上 ”";: NEXT J 

PRINT "一 一 一 一 二 一 一 一 一 4” 

FOR J = 1TO 4PRINT , NEXTIJ 


FOR J 王 0TO16:SUM (J) = 0; NEXT J: POKE 
1659,0: PRINT D$ : PRINT CHR$ (12): GOTO 135 
PRINT CL$ ;" 工 资 表 " 

PRINT D$;i"RUN APC" 


PRINT "一 一 一 一 十 一 一 一 一 十 一 一 一 一 十 一 一 一 一 
十 一 一 一 一 + 一 一 一 一 十 一 一 一 一 十 一 一 一 一 十 一 一 
一 一 十 一 一 一 一 十 一 一 一 一 十 一 一 一 一 十 4 

PRINT "一 一 一 一 十 一 一 一 一 十 一 一 一 一 十 一 一 一 一 
十 一 一 一 一 十 "4 

PRINT "一 一 一 一 十 一 一 一 一 + ， 
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620 
700 


720 
730 


731 
732 


734 
735 


740 


741 
742 


743 


745 


750 


RETURN 

FORJ 王 0Tol6;TT(J) =INT (CTT(J) 十 SUM(J)) 
* 10” 2 十 0.5)/10” 2:NEXTJ:T 一 TS 
RETURN 

POKE 1659,6: PRINT TAB( 34)?DNAS 刀 职 工 工资 统 


计 ” 

POKE 1659,1 

PRINT ”r 一 一 一 一 一 工 一 一 一 一 T”%5: FORJ 一 1TO 
16: PRINT "一 一 一 一 T":， NEXT 了 

PRINTE 一 二 一 十 一 二 二 一 小 


PRINT "|"3Ti 人 "TAB(C 13) 和 7 | 总 计 |"3TT(C0); 
TAB( 33)32 17; 

FORJ 一 1TO 15: PRINT TIT(GJ);SPC( 8 一 LENCSTR 
$ (CTT(GI)))) 和 71"; :NEXT J;PRINT TT(16);SPC(8 一 
LEN (STR $CTT(G16)))):| | 

PRINT ”上 + 一 一 一 一 一 十 5; GOSUB 600 

FORJ 一 0ToO16:U(J) = INTCCTT(J)MT) x* 100 十 0. 
5)/100:NEXT 了 


PRINT "|”"3;Ti” 人 ”3;TAB( 13); | 平 均 |";U(0); 
TAB( 33) 和 1; 

FOR J 一 1TO 15:, PRINT U(J);SPC (8 一 LEN (STR $ 
(U(J)))) 和 7 |"; :NEXT J， PRINT U(16);SPC(8 一 LEN 


(STR$ (CU(16)) 7 和 | | 
PRINT "上 一 一 一 一 一 廿 一 一 一 一 上 "; ;FORJ 一 1TO 
16;， PRINT "一 一 一 一 上 ”";, NEXT J 
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760 
765 
770 


780 
790 
795 
800 


810 


820 


PRINT "一 一 一 一 十 一 一 一 一 -7 

POKE 1659,0 

PRINT CHR $ (12 )，PRINT : PRINT: PRINT TAB 
(10);" 职 工 总 数 :";M;i" 人? 

PRINT TAB( 10)3 打 印 总 数 :"3T 和 人 ?” 

IFT < M THEN 810 

IFTy>MTHEN 820 

PRINT TAB ( 10) 录 打印 率 : 100%":，PRINT CHR. 
$(19): GOTO 550 

PRINT TAB( 6)? 漏 打印 ";M 一 Ti" 人 ,请 查找 原 
因 ! 以 :PRINT CHRS$ (19):GOTO 550 

PRINT TAB( 6); 多 打印 ";T 一 Mi 人 ,请 查找 原 
因 履 : PRINT CHR$ (19): GOTO 550 


1000 PRINT RD$3; 工 资 表 ,R";I: INPUT A$ (0) 
1010 RETURN 
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第 七 章 ”挂号 查询 管理 系统 


本 软件 适用 于 医院 挂号 部 门 使 用 ,可 查询 病员 是 否 在 此 


诊 过 病 ,以 及 什么 病 ,知道 病员 的 病历 后 , 则 更 有 针对 性 地 为 
患者 诊治 ,缩短 了 治疗 的 时 间 ，, 医 务工 作者 及 病员 均 感 满意 。 


(一 ) 建 立 随机 文件 

首先 建立 并 运行 随机 文件 A。 

(二 ) 主 菜单 功能 

1. 清 零 2. 增添 记录 

3. 查询 记录 4. 修改 记录 

5. 退 出 

(三 ) 初 始 化 

在 主 菜 单 的 提示 下 键入 “1? 后 即 可 进行 初始 化 操作 :定义 


盘 片 姓氏 ,使 该 盘 以 后 只 允许 相同 姓氏 的 姓名 存盘 ,然后 返回 
主 菜单 ,以 后 不 可 再 次 定义 ,否则 将 失掉 以 前 资料 。 


大 姓 使 用 专用 盘 片 ,一 姓 一 盘 , 四 川 大 姓 如 下 : 

刘 王 张杨 李 :高 何 吴 徐 肖 黄 茧 
赵 罗 周 余 陈 孔 聂 夏 

其 他 小 姓 使 用 通用 盘 片 ,多 姓 一 盘 。 

(四 ) 增 添 记录 

在 主 菜单 的 提示 下 键入 “2 后, 即 可 按 屏幕 提示 ,分 别 按 


城市 ,农村 和 男女 性 别 的 不 同 , 逐 人 逐 项 输入 病历 号 和 年 龄 ， 
按 “RETURN"” 键 返回 主 菜 单 。 


(五 ) 修 改 记 录 
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在 主 菜 单 的 提示 下 键入 “4? 后 ,系统 进入 修改 状态 ,可 进 
行 逐 人 逐 项 修改 操作 。 

(六 ) 查 询 记录 

在 主 菜 单 的 提示 下 键入 “3? 后 进入 查询 状态 ,再 按 屏幕 提 
示 , 根 据 姓名 进行 查询 。 

(七 ) 退 出 

在 主 菜单 的 提示 下 键入 “5”, 系 统 清 除 内 存 ,停止 运行 ,此 
后 , 若 要 再 作 其 他 操作 , 则 必须 重新 启动 。 

挂号 查询 管理 系统 流程 图 如 图 7.1 所 示 。 


图 7.1 挂号 查询 管理 系统 流程 图 

挂号 查询 管理 程序 清单 ， 
程序 名 ;GUAHAO 
10 ONERR GOTO 20 
20 ”RRINT CHR $ (18):D $ = CHR $ (4): PRINT CHR 

$ (12) 
30 ”PRINT” 处 理 方式 : 
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35 PRINT 

36 ”PRINT" 1. 清 零 " 

40 “PRINT" 2. 增添 记录 ” 

50 “PRINT" 3. 查询 记录 ” 

60 PRINT 4. 修改 记录 ” 

65 PRINT" 5. 结 束 " 

67 PRINT 

70 INPUT'" 请 键入 所 选 的 功能 号 (1 一 5) :";K 
75 PRINT 

80 IFK <1ORK >5THEN PRINT CHR$(7):GOTO 70 
90 ONK GOTO 100,110,120,130,140 

100 PRINT DJ$;"RUN A7 

110 PRINT DV$;i"RUN APPENDY 

120 PRINT DV$;"RUN SEARCH7 

130 PRINT D$;i"RUN MODIFY” 

140 NEW 


程序 名 :A 
10 DV$ 王 CHRS$(4):AJ 一 "内 科 ? 
30 ROR IT=1To14:GET A$(T):B 王 B 十 VAL CA 和 CT)): 
NEXT TI:C$ = STR $ (B) 
40 IFC$ 王 CHR 和 (55)THEN 120 
50 GOTO 180 
120 PRINT D$;"OPENY;A 和 $;7L767 
130 PRINT D$jiWRITE" ;AU 和 $ 7 RO7 
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140 PRINT 0 

150 PRINT D$;i"CLOSE";AV$ 
170 PRINT D$;"RUN GUAHAOY 
180 NEVW 


程序 名 :HELLO 

5 HOME:PRINT CHR $ (4);"PR #3" :HOME ;PRINT CHR 
$ (12) :PRINT CHR$ (18) 

20 PRINT:PRINT TAB(6); :FOR J 王 0 TO 11:PRINT7Y 令 "”; 
NEXT 

30 PRINT:PRINT TAB(6) 交合 ";SPC(20) 7 全 " 

40 PRINT TAB(6);" 仿 病案 检索 管理 系统 售 " 

50 PRINT TAB(6)j 争 ";SPC(20) 和 六合" 

60 PRINT TAB(6); :FOR J 一 0 TO 11:PRINT" @";:NEXT 

70 PRINT:PRINT:PRINT 作者 : 罗 太 模 " 

80 PRINT:PRINT TAB(11);" 一 九 九 〇 年 二 月 "; 

90 FOR I= 1TO 3000:NEXT:PRINT: PRINT 

95 PRINT TAB(8);" 欢 迎 您 使 用 忆 

100 PRINT CHR $ (4) ;7RUN GUAHAOY 


程序 名 :APPEND 

10 REM APPEND 

20 D$ 王 CHRS$(4):A$ 一 “内科 

30 OP$ 王 D$ 十 "OPEN" :CL$ 王 DS$ 十 "CLOSE" 
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112 
115 


126 


RD$ 王 D$ 十 "READ":WR$ 王 D$ 十 "WRITE 


PRINT CL$;AfV 
PRINT OP 和 ;AS$ 和 L767 
PRINT RD 和 $;A$$ 和 ,RO' ;INPUT M 
M 王 M 十 1;PRINT D$ ;PRINT CHR $ (12) 
PRINT" 请 键入 第 ";M;i" 个 病历 的 :” 
INPUT 姓 名 :”;B$ (0) 
IFB$(0) 一 ”THEN 300 
INPUT "性 别 (MVF):";B$(1) 
INPUT" 年 龄 ";B$ (2) 
INPUT" 入院 日 期 ";B$ (3) 
INPUT“ 出 院 日 期 ",B$ (4) 
INPUT" 住院 科室 “;B$ (5) 
INPUT" 病 案 号 ";B$ (6) 
INPUT“ 治疗 效果 ";B$ (7) 
INPUT" 手术 情 况 ";B$ (8) 
INPUT" 主要 疾病 ";B$ (9) 
INPUT" 次 要 疾病 ";B$ (10) 
INPUT" 要 修改 吗 ? (Y/N)";XG 
IF XG $ ="Y" GOTO 90 
PRINT WR$ ;AS$ 和 ,RM 
FOR J 一 0 TO 10:PRINT B$ (J) :NEXT 了 J 
PRINT WRS$ ;Ad 和 $ ji ,RO" ;PRINT M 
FOR J 一 0 TO 10:B$ (J) 一 "0" :NEXTJ 
GOTO 80 
PRINT CL$ ;ASV 
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310 


PRINT D$5;i"RUN GUAHAOY" 


程序 名 ;SEARCH 


10 
30 
40 
50 
60 
70 
80 
90 
100 
110 
130 
140 


150 
300 
305 
317 
320 
325 
330 
350 
360 


DJ$ 王 CHRS$(4):AS$ 一 "内 科 ":DIM B$ (12) 
OP$=DS$ 十 "OPEN" :CL$ 一 D$ 十 "CLOSE% 
RD 和 $=D$ 十 "READ":WR$=DV$ 十 "WRITE" 
PRINT CL$ ;ASV$ :PRINT OP$;AJ$j，L76" 
PRINT RD$ ;ASV$ ji,R0" : INPUT M 
PRINT D$ : PRINT CHR 和 4 (12) 
PRINT "请 输入 查询 方式 :” 
PRINT "1. 查 某 记 录 内 容 ， 
PRINT "2. 查 某 字段 内 容 " 
PRINT ”3. 退出 ” 
INPUT "请 选择 :”;K 
IFK<10ORK>3THEN PRINT CHR$ (7): GOTO 
130 
ON K GOTO 300,400,800 
PRINT CHR$ (12): PRINT " 现 有 记录 总 数 :”;M 
INPUT "请 输入 要 查询 的 起 , 止 记 录 号 :”;R1,R2 
GOSUB 700 
PRINT CL$;A 和 $: PRINT OP$;AS$ 和 7,L767 
FOR TI 一 R1 TO R2 
PRINT RD$ ;ASV$;i ,RiT 
FOR J 一 0 TO 10 :INPUT B$4 (JI)NEXT IJ 
FOR J=0 TO 5 
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370 


400 


419 


455 


462 


PRINT B$ (J) TAB(20)B$ (J 十 6) 
NEXT J:PRINT CHR $ (19) 
X 王 FRE(0):NEXT I;PRINT CHR $ (18) ,PRINT CHR 
$ (18) :PRINT CHR$ (19) :GOTO 70 
GOSUB 1000 
INPUT "是 否 打印 ?";Y$ 
GOSUB 900 
S 一 0:T 王 0:M1=0 
PRINT CL$ ;AS$: PRINT OP$;iAS$j，L76": PRINT 
RDS$:A$ji,R0" :INPUT M 
IFY$ 一 "Y" THEN POKE 1659,1 
FOR I 王 1 TO M 
PRINT RD$;AS$;ji ,RiT:S 一 S 十 1 
FOR J 一 0 TO 10:INPUT B$(J) :NEXT IJ 
FOR J=0 TO 10 
IF B$(J) 一 ”7"THEN 455 
IF J>.8 THEN 451 
IF B$(J)=C$ (JITHEN 470 
IFB$(J) 一 C$ THEN 470 
NEXT JJ 
X 王 FRE(0);NEXT I;PRINT "共计 :3Ti 人 7 ;PRINT 
CHR $ (19):M1 王 MI 十 M:POKE 1659,0;PRINT CHR. 
$(18) :PRINT CHRS$ (18) 
PRINT D$ :INPUT" 是 否 换 磁盘 后 继续 查询 (Y/N)7?"; 
WS$ 
IF Wg$ 一"Y" RHEN 419 
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463 


4614 
470 


471 
472 
700 
710 


720 


730 


740 


750 
800 
850 
851 


855 
859 
860 
870 
900 


IF WwW$="N" THEN GOSUB 850:PRINT CHR $ (19 ) ; 
GOTO 70 

GOTO 461 

T 王 T 十 1:PRINT B$(0);TAB(10) B$(1);， TAB(16)B 
$ (2);TAB(24)B$(5)3TAB(28)B$ (6) 

IF INT (T/9)<<>> T/9 THEN GOTO 460 

PRINT CHR 和 $ (19):GOTO 460 

PRINT CHR $ (12) 

VTAB (11) :PRINT " 按 *":VTAB(11): HTAB(3) :PRINT 
” 任 v 

VTAB(11) :HTAB(5):PRINT  " 意 ”:;VTAB(11):HTAB 
(7) :PRINT" 键 " 

VTAB(11):HTAB(9):PRINT  " 继 ”:VTAB(11):HTAB 
(11):PRINTY 续 " 

VTAB(11) :HTAB(13):PRINT " 进 " :VTAB (11):HTAB 
(15): PRINT:" 行 ” 

RETURN 

PRINT D$;i"RUN GUAHAOY 

CV 王 INT (((S/M1) * 100) * 10 十 0.5)/10 

PRINT "记录 总 数 ";M1;" ,查询 总 数 ";Si” ,查询 率 :"; 
CV3:7 9 

IF T=0 THEN PRINT " 查 无 此 人 ，,"; 

PRINT " 按 任意 键 继续 进 行 . 

RETURN 

PRINT CL$ ;AU 

PRINT CHR$ (12) 
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910 


920 


930 


940 


VTAB (11): PRINT “在 ":VTAB (11):HTAB (3): 
PRINT" 查 " 

VTAB(11) :HTAB(5):PRINT " 询 ":VTAB(11):HTAB 
(7):PRINT 中” 

VTAB (11): HTAB (9):PRINT", 必 :VTAB(11) HTAB 
(11) :PRINT" 请 " 

VTAB (11): HTAB (13): PRINT" 稍 ": VTAB 一 (11): 
HTAB(15) :PRINT" 候 " :VTAB(11) :HTAB(17) ;PRINT 


儿 | 


950 有 RBFURN 


1000 


1020 
1030 
1035 
1040 
1050 
1055 
1056 
1060 
1070 
1080 
1090 


PRINT CHR $ (12):PRINT" 请 输入 查询 内 容 或 按 
RETURN 键 " 

INPUT "姓名 ";C$ (0) 

INPUT "性 别 (M/F):";C$ (1) 
INPTU "年 龄 ";C$ (2) 

INPUT ”入院 日 期 ";C$ (3) 
INPUT "出 院 日 期 ";C$ (4) 
INPUT "住院 科室 ";C$ (5) 
INPUT " 病 案 号 ";C$ (6) 
INPUT "治疗 效果 ";C$ (7) 
INPUT "手术 情况 ";C$ (8) 
INPUT "疾病 编码 ";C$ 
RETURN 
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程序 名 :MODIFY 
5 DS$=CHRS$ (4):A 和 一" 内 科 ” 


10 


11 


12 


20 
30 
50 
55 
60 
70 
80 
90 
100 
102 
103 


1014 
105 
110 
115 
130 
140 


MC$ (0) 王 " 姓 名 :":MCS$ (1) 王 "性 别 ":MC$ (2) 王 " 
年 龄 " 
MC$ (3)= 王 "入院 日 期 ":MC$ (4) 一 "出 院 日 期 ":MC 
$ (5) 一 "住院 科室 " :MC$ (6) 一 “病案 号 " 
MC$ (7) 一 "治疗 效果 ":MC$ (8) 王 “手术 情况 ":MC 
$ (9)=" 第 一 诊断 " ;MC$ (10)=" 第 二 诊断 / 
OP 和 $ 王 D$ 十 "OPEN":CL$ 一 D$ 十 "CLOSE% 
RDJ$=D$ 十 "READ":WRS$=D$ 十 "WRITE" 
PRINT D$ ;PRINT CHR$ (12) 
HTAB(12):VTAB(4):PRINT "功能 设置 :” 
HTAB(12):VTAB(5):PRINT "1. 修改 " 
HTAB(12):VTAB(6):PRINT ”2. 退出 " 
HTAB(12):VTAB(7) :INPUT "请 选择 :”;K 
ON K GOTO 100,320:PRINT CHR $ (12) 
PRINT OP$ ;AS$ ji,L76" 
PRINT RD$;A$ji",RO" ;INPUT M;PRINT DY 和 
PRINT CHR $ (12) ;HTAB(10);VTAB(4):PRINT" 现 有 
记录 总 数 :";M 
HTAB (10):VTAB(5) :INPUT "要 修改 的 记录 号 :";A 
IF A <1 OR A 之 MTHEN PRINT CHR $ (7) :GOTO 100 
HTAB(10) :VTAB(6) :INPUT "要 修改 的 字段 号 ;";B 
IF B<1 OR B>11 THEN PRINT CHR$ (7):GOTO 110 
PRINT RD$ ;AS 和 $ ;7 ,R" 3;A 
FOR J 王 0 TO 10:;INPUT B$(J):NEXTJ 
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150 


170 
175 
180 
190 
200 
320 
330 


PRINT D $ :PRINT CHR$ (12) ;PRINT 请 修改 第 ”; 
Ai 项 记录 的 : 

PRINT MC9$ (B 一 1);TAB(16)" 原 为 :”";B$(B 一 1) 
PRINT TAB(16)7 改 为 :";:INPUT B$(B 一 1) 

PRINT WRSV$ ;AU 和 7, RiA 

FOR J 一 0 TO 10:PRINT B$ (J) :NEXT IJ 

PRINT D$ :GOTO 50 

PRINT CL$;AS$ 

PRINT D$ ;"RUN GUAHAOY” 
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第 八 章 “寿星 ?咨询 软件 


本 程序 既 能 够 科学 地 预测 人 的 寿命 ;又 能 无 私 地 为 人 们 
提供 延年益寿 的 知识 。 因 此 , 它 深 受 各 位 先生 和 女士 的 厚爱 。 

本 程序 的 使 用 方法 ， 

1. 请 将 程序 软盘 正确 放 入 驱动 器 , 关 好 驱动 器 的 小 门 。 

2. 请 你 开 显 示 器 .打印 机 和 主机 电源 开关 , 稍 候 , 屏 幕 显 
示 出 程序 功能 及 使 用 说 明 , 殴 任意 键 则 进入 人 机 对 话 。 

3. 回答 时 ,必须 看 清楚 屏幕 上 的 提示 ,是 殴 S 键 , 否 敲 B 
键 ,在 回答 数字 问题 时 要 特别 注意 。 

4. 回答 时 ,在 不 能 完全 肯定 情况 时 ,应 按 主要 情况 ,大 致 
倾向 来 确定 是 或 否 。 个 别 情况 不 了 解 时 ,对 总 的 结果 影响 不 
大 ,不 必 多 虚 。 如 不 知道 的 问题 比较 多 , 则 需要 你 将 问题 型 清 
楚 后 ,再 来 咨询 为 妙 。 

“寿星 "咨询 程序 清单 
文件 名 :SX 
2，HGR2 : HOME : PRINT CHR $ 〈4)"PR #3" :PRINT 
3 LOMEM: 24576 
6 DIM S(60,2),，J(16) 

18 PRINT TAB( 10)j :寿命 预测 :NO. Z" 

19 PRINT "一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 " 

20 PRINT G 答 问 60 个 ,给 结果 ,为 您 延年益寿 芒 

21 PRINT "@@ 部 分 资料 源 于 欧美 ,但 可 供 你 参考 .” 

22 . PRINT "@@ 预测 寿命 , 意 在 使 您 生活 方式 优化 .7 
.328 


214 


25 
27 


28 


30 


32 


314 


36 
40 


41 


42 


43 


44 


PRINT "@ 预测 主要 依 生活 方式 ,重病 影响 待定 ” 


PRINT "预测 是 个 大 概 ,与 您 的 实际 寿命 略 有 差异 1 
PRINT "一 一 一 一 * 一 一 一 一 请 稍 等 一 一 一 一 * 一 一 一 


用 


VTAB (9): HTAB (6): PRINT 7"【 回 答 时 …… 是 :S/ 否 ， 
B】": GET I$ 
FORI 王 1TO60 
FORJ 一 1TO2 
READ S(I,J) 
NEXT J,T 
DATA 71. 0,78. 2,71. 1,78. 3,71. 2,78.3,71. 3,78. 4， 
71. 4,78. 4,71.5,78. 4,71.6,78.5,71.7,78.5,71.8,78. 
5,71.8,78.6 
DATA 71. 9,78. 6,72. 0,78. 6,72. 1,78.7,72. 2,78. 7， 
72.2,78.8,72.3,78.8,72.4,78.9,72.5,78.9,72.6,79. 
0. 72. 7.79.0 
DATA 72. 8,79. 1,72. 9,79. 2,73. 0,79. 3,73. 1,79. 3， 
73. 2,79. 4,73. 4,79. 5,73. 5,79. 6,73.7,79.7,73.9,79. 
8,74.0,80.0 
DATA 74. 2,80. 1,74. 4,80. 2,74. 6,80. 4,74. 9,80. 5， 
75. 1,80.7,75.4,80.8,75.6,81.0,75.9,81.2,76. 2,81. 
4,76.5,81.6 
DATA 76. 8,81. 8,77. 2,82. 0,77. 5,82. 3,77. 9,82. 5， 
78. 3,82.8,78.7,83.0,79. 1,83.3,79.6,83.6,80.0,83. 
8,80.5,84. 1 
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45 


50 
60 
62 
614 
66 
68 
70 
72 
74 
80 
86 


90 


DATA 80. 9, 84. 4,81. 4,84. 7,81. 9,85. 1,82. 5,85. 4， 
83. 0,85.8,83.6,86. 2,84.2,86.7,84.8,87. 1,85. 4,87. 
6,86. 1,88. 1 


ERINT 一 二 全 一 一 请 回答 问题 一 一 一 一 一 一 
INPUT "年 龄 二 ”3;Y 

TI=Y 一 19 

INPUT "性 别 〈( 男 :M/ 女 ;F):";S$ 

IFS$ 一 "M" THENJ 一 1 

IFS$ 一 "F" THENJ 一 2 

INPUT "身高 (CM) ,体重 (KG ) 王 ";H,W 

IFJ 一 1THENSW =H 一 105 

IFJ= 2THENSW =H- 100 

PRINT "您 的 标准 体重 是 :";SWw;" 公 斤 册 

IF (WwW. 一 SW) * 2<= 一 11THEN PRINT "您 的 体重 
还 差 ; ";(CSW 一 W) *2;i2 斤 " 
INPUT "收缩 压 , 舒 张 压 :" ;SP,DP 


100 INPUT "您 化 验 过 胆固醇 吗 ? ”5T$ 
102 IFI$ = "S" THEN 108 

104 PRINT "请 化 验 胆固醇 ,下 次 把 结果 告诉 我 必 

106 GOTO 200 

108 INPUT "胆固醇 (MG/100ML) ; "3;CH 
110 IF CH> 230THEN PRINT 你 的 胆固醇 增高 ! 


儿 


200 FS = 王 0 
202 INPUT "你 的 体重 增 减 通常 超过 标准 体重 的 2 公斤 吗 ? 
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201 
206 


220 


”59$ 
IF TI9 "S" THEN 2114 
IFI$ 一 "B"” THEN 212 
PRINT "请 回忆 体重 增 减 详情 ,下 次 告诉 我 忆 
GOTO 2114 


FS = 王 FS 十 1 

IF2x* (W 一 SW)<< 一 一 OAND2* (W 一 SW) 
之 一 一 8 THEN 2214 

IF2x (W 一 SW)< 王 一 11AND2x*(W 一 SW) 
之 一 一 13 THEN 227 

IF2x*( WwW 一 SW)<<= 一 14THEN 230 
IF2x*(W 一 SwW)>>=5THEN 234 

GOTO 236 


FS = FS 十 1: GOTO 236 
FS = FS 一 1:J(1) 一 1:; GOTO 236 
FS 王 FS 一 2; J(1):GOTO 236 
FS 一 FS 一 INT ((2x*(W 一 SW))/5):J(2) = 1 
INPUT "每 天 至 少 吃 一 顿 含 全 部 基本 曹 养 素 的 饭菜 吗 ? 
(中 主 粮 @O 大 豆 食 品 / 蛋 / 瘦 肉 / 鱼 人 油田 鲜 菜 /水 果 ) 
"5 红 $ 
IFI$ 一 "S" THEN 242 
GOTO 2414 
FS 一 FS 十 2 
INPUT "每 天 吃 一 粒 多 种 维生素 /一 粒 维生素 A,C,E 
吗 ? ”35T$ 
IF 1$ 一 "S" THEN 250 
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247 J(3) = 1: GOTO 252 
250 FS =FS 十 1 
252 INPUT "喝酒 适量 吗 ? 〈@D 一 亿 杯 果子 酒 / 中 一 @ 钱 白 
酒 ) 一 一 (是 :S 若 超 则 答 倍 数 /不 喝 :;B)”;T$ 
254 IFI$ = "S" THEN 262 
256 IFIV$ 一 "B" THEN 264 
258 FS=FS 一 2x* (VAL(CI$ )/2):GOTO 261 
262 FS =EFS 十 1 
264 INPUT "每 天 吃 一 顿 蔬菜 吗 ? 
”35T$ 
266 IFTI$ 一"B" THEN 270 
268 GOTO 272 
270 FS = 王 FS 一 1:J(4) = 1 
272 INPUT "每 日 进餐 不 足 三 顿 吗 ? 
”1T$ 
274 IFI$ = "S" THEN 278 
276 GOTO 280 
278 FS=FS 一 1: J(5) 一 1 
280 INPUT "经 常 不 按 顿 吃饭 /回回 吞 束 吗 ?7 ;T$ 
282 IJFI$ = ”"S" THEN 286 
284 GOTO 288 
286 FS = 王 FS 一 1:J(6) 一 1 
288 INPUT " 常 吃 :人 动物 油 四 腌 肉 @@ 精 制 白酒 吗 ? ( 答 受 用 
种 数 0 一 3)” ;X 
289 IFX>>= 1THEN 291 
290 GOTO 293 
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291 
293 
2914 
295 
296 
297 
298 
300 
301 
302 
303 
305 
306 
307 
308 
310 
311 
312 
316 
318 
320 
322 
3214 
325 
328 
330 


FS = FS 一 X;J(7) 一 1 

JINPUT "三 十 岁 前 常 喝酒 吗 ?";T$ 

IFI$ = "S" THEN FS = FS 一 1 

INPUT "睡眠 常 少 于 5 小 时 /多 于 9 小 时 吗 ?";T$ 
IFI$ 一 "S" THEN 298 

GOTO 300 

FS = FS 一 2:J(8) = 1 

INPUT "每 天 睡眠 都 大 于 9 小 时 吗 ?"5I$ 

IF 1$ 一 "S" THEN 303 

GOTO 305 


FS 一 FS 一 4:J(8) 王 1 


INPUT 请 告诉 每 天 抽烟 包 数 :”;X 
IFX 二 0THEN 316 
IFX > 之 2THENEFS 一 FS 一 8 
IFX>=1ANDX 玫 = 2THEN FS 一 FS 一 6 
IFX<1ANDX>.5THEN FS 一 FS 一 3 
IFX<.5THENEFS 一 FS 一 1 
J(9) 一 1 
INPUT "周围 常 有 人 抽烟 吗 ?%" ;TI$ 
IF I9 = "S" THEN FS 一 FS 一 1 
INPUT "是 体力 工作 者 吗 ?";I$ 
IFI$ = "S" THEN FS 一 FS 十 2 
INPUT "是 体力 劳动 很 少 的 工作 吗 ?";I$ 
IFIV$ = "S" THEN FS = FS 一 1 
INPUT "每 周至 少 三 次 体育 锻炼 (每 次 半 小 时 )?";I$ 
IFIT$ 一 "S" THEN FS 一 FS 十 2 
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332 


3314 
335 
336 
337 
338 
341 
342 
343 
3414 
346 
347 
348 


350 
352 
354 
356 
358 
359 
362 
363 
3614 
365 
366 


INPUT " 工 余 坚 持 轻 微 体 力 活动 (如 每 天 散步 一 小 
时 )?”; I$ 

IFI$ = "S" THEN FS 一 FS 十 1 

INPUT " 工 余 不 进行 任何 体力 活动 吗 ?"35T$ 
IFI$ 一 "S" THEN 338 

GOTO 341 

FS =- FS 一 2:J(10) = 1 

INPUT ”有 丰富 的 脑力 劳动 吗 ?";T$ 

IF I$ = "S" THEN FS = FS 十 1 

INPUT "生活 基本 满意 一 心情 输 快 ? ;IT$ 

IF 1I$ 一 "S" THEN 347 

J(11) 一 1:GOTO 348 

FS 一 FS 十 1 

INPUT "夫妻 生活 幸福 , 青 壮 年 时 期 有 每 周 1 一 2 次 亲 
密 的 性 生活 ?" ;IT$ 

IFI$ 一 ”"S" THEN FS 一 FS 十 2 

INPUT "性 情 文雅 ,随和 ,理智 ?";I$ 

IF TI$ = ”"S" THEN FS = FS 十 1 

INPUT "热爱 本 职工 作 吗 ?”;I$ 

IFI$ = "S" THEN FS = FS 十 1 

INPUT "经 常 心烦 ,情绪 低落 吗 ?" ;IT$ 

IFI$ = ”"S" THEN FS 一 FS 一 2 

INPUT " 常 精神 人 忧郁 ,刻板 ,教条 主义 吗 ?";I$ 
IFI$ 一 "S" THEN 366 

GOTO 368 

FSs = FS 一 1:J(12) = 1 


。334 。 


368 
369 
370 
371 
373 
371 
375 
376 
377 
378 
380 
382 
381 
386 
388 
390 
392 
3914 
396 


398 
400 
402 
4014 


406 


INPUT " 工 余 精 神 仍 常 紧张 / 常 感 问心 有 愧 ?";I$ 
IFI 和 $ 一 "S" THEN 371 
GOTO 373 
FS = FS 一 1;J(12) = 1 
INPUT "性 情急 躁 , 爱 生气 吗 ?";T$ 
IFI$ 一 "S" THEN FS 一 FS 一 1 
INPUT "经 常 操劳 过 度 吗 ?" ;1$ 
IFIS$ 一 "S" THEN 378 
GOTO 380 
FS = FS 一 2:J(12) = 1 
INPUT "工作 疲 塌 ,无 上 进 心 ? "35T$ 
IFT$ 一 ”"S" THEN FS 一 FS 一 1 
INPUT "在 污染 环境 中 工作 吗 ?351$ 
IFI$ 一 "S" THEN FS 一 FS 一 2 
INPUT "生活 在 市 区 吗 ?";I$ 
IFI$ = "S" THEN FS = FS 一 1 
INPUT "室内 空气 流通 ,温度 常 在 20 度 以 下 ?" ;IT$ 
IFI 和 $ 一 "S" THEN FS = FS 十 1 
INPUT "父母 ,祖父 母 , 外 祖父 母 中 有 80 岁 以 上 的 人 娄 
一 ”;X 
IFX>= 1THEN FS 一 FS 十 X 
INPUT "父母 都 活 到 80 岁 以 上 吗 ?735T$ 
IFI$ 一 ”"S" THEN FS = FS 十 1 
INPUT "父母 ,祖父 母 , 外 祖父 母 中 50 岁 前 死 于 心脏 病 
的 人 数 一 ”;X 
IFX >= 1THEN FS 一 FS 一 2 * X 
。335 。 


408 INPUT "父母 ,祖父 母 , 外 祖父 母 中 50 一 60 岁 间 死 的 人 


410 
412 


4114 
416 
418 
420 
422 


424 
426 
428 
430 
432 
433 
434 
436 


438 


数 一 ”3;X 

IF X >>= 1THEN FS = FS 一 X 

INPUT "兄弟 姐妹 中 50 岁 前 死 于 心脏 病 , 糖 尿 病 , 演 疡 
病 的 吗 ?";T$ 

IFI$ 一 "S" THEN FS 一 FS 一 2 

INPUT 兄弟 姐妹 中 50 一 60 岁 间 死 的 人 数 王 ”;X 
IFX 之 = 1ANDX<= 3THEN FS 一 FS 一 X 
IFX > 之 3THENFS 一 FS 一 3 

INPUT 父母, 祖父母 ,外 祖父 母 中 患 糖尿 病 , 甲 状 腺 
病 ,癌症 的 种 类 数 (0 一 3) 一";X 

IFX >= 1THENFS 一 FS 一 2 *X 

IFJ 一 2THEN 430 

GOTO 433 

INPUT "近亲 中 有 60 岁 前 死 于 乳腺 癌 的 吗 ?" ;IT$ 

IFI$ 一 "S" THEN FS 一 FS 一 2 

IF SP < 130 AND DP 一 90 THEN 451 

IF SP 之 = 150 OR DP 之 = 100 THEN 442 

IF (SP 之 = 140 AND SP < 150) OR ( DP > 之 = 95 
AND DP < 100) THEN 446 


IF (SP >= 130 AND SP < 140 ) AND ( DP > 90 
AND DP < 95) THEN 449 


439 IF DP 之 90THEN 449 

440 GOTO 451 

442 FS 王 FS 一 5:J(13) 一 1: GOTO 451 
446 FS 一 FS 一 3:J(13) 一 1:GOTO 451 
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458 


FS = FS 一 1; J(13) 一 1 
IF CH > 之 = 200 THEN 455 
J(15) 王 1:GOTO 457 
FS 一 FS 一 1:J(G14) 一 1 
INPUT "常服 有 副作用 的 药 吗 ?";T$ 
IFI$ = v"S" THEN FS = FS 一 1 
INPUT "不 经 医生 诊断 乱 吃 药 吗 ?75T$ 
IF TI$ 一 "S" THEN 462 
GOTO 461 
FS = FS 一 2:J(16) 一 1 
IFJ 一 2THEN 466 
GOTO 470 
INPUT "子女 超过 7 个 吗 ?"5T$ 
IFI$ 一 ”"S" THEN FS 一 FS 一 2 
INPUT "母亲 生 您 时 小 于 18 岁 吗 ?" ;TI$ 
IF TI$ 一 "S" THEN FS = FS 一 41 
INPUT "您 是 第 一 胎 吗 ?";I$ 
IFI$ = "S" THEN FS = FS 十 1 
IF J 一 1 THEN 492 
INPUT "已 婚 分 居 / 离 婚 ?";I$ 
IFI$ = "S" THEN FS = FS 一 2 
INPUT "寡居 吗 ? "5;1$ 
IFI$ = "S" THEN FS = FS 一 1 
INPUT "35 岁 时 仍 未 婚 ?" ;TI$ 
IFI 和 一 "S" THEN 489 
GOTO 508 
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489 _ INPUT "35 岁 后 多 少年 未 婚 一 "IT$ 
490 FS = FS 一 1 wxwX/10: GoTO 508 
492 INPUT "已 婚 分 居 / 离 婚 / 鳃 居 但 与 家 庭 其 他 成 员 住 在 
一 起 ?”;T$ 
494 IJFI$ = "S" THEN FS = FS 一 1 
496 INPUT "已 婚 分 居 / 离 婚 后 独居 ?" ;IT$ 
498 IFI$ = "S" THEN FS 一 FS 一 3 
500 INPUT " 因 玫 子 去 世 而 独居 ?" ;TI$ 
502 IFI$ = "S" THEN FS = FS 一 2 
503 INPUT ”35 岁 后 仍 未 婚 ?”;T$ 
504 IF I$ 一 "S" THEN 506 
505 GOTO 508 
506 INPUT ”35 岁 后 多 少年 未 婚 一 ";X 
507 FS 一 FS 一 2x*X/I10 
508 INPUT "喜欢 交友 且 有 两 个 以 上 知心 朋友 ?" ;TI$ 
510 IFI$ = "S" THEN FS 一 FS 十 2 
512 INPUT "已 过 65 岁 还 适当 工作 ?”;I$ 
514 IFI$ = "S" THEN FS = FS 十 3 
516 INPUT "已 过 60 岁 还 适当 工作 ?”31$ 
518 IFI$ = "S" THEN FS 一 FS 十 2 
520 INPUT "老年 期 快乐 ,幸福 ,生活 有 许多 乐趣 ?”";T$ 
524 IF I$ =”"S" THEN FS = FS 十 2 
550 IF (Y <20 ORY > 79) THEN 606 
560 POKE 1659,1: POKE 2043,60 
570 PRINT 寿命 预测 . 抗 老 建议 ” 
580 YC = SGLJ) 十 INTCFS x* 10) /10 
。338 ， 


590 
600 
602 
603 
6014 
605 


606 
608 


610 
612 


700 


702 
7014 


706 
708 
710 
712 


7114 
716 
718 


POKE 1659,0 
INPUT "您 对 此 感 兴趣 ?2 ;T$ 
POKE 1659,1 
IF I$ 一 "B" THEN 606 
PRINT "您 的 寿命 指数 于 ”";S(LJ)i7 岁 ” 
IFY < (YcC -- 2) THEN PRINT "您 的 预测 寿命 二 ";S 
(1,J) 一 INT (FS * 10)/10i 岁 ":GET 1$ 
IF FS > = 5THEN PRINT "您 可 能 比 常人 寿命 长 " 
IF FS 一 = 一 1AND FS >= 一 10THEN PRINT " 设 
法 消除 影响 寿命 的 因素 ” 
IF FS 一-- 11 THEN PRINT "请 医生 检查 一 下 ” 
IFFS < 5ANDFS > = 一 1THEN PRINT "您 的 生活 
方式 基本 上 是 好 的 ” 
IF J(C1) = 1 THEN PRINT "增强 营养 ,使 体重 增加 :”; 
2x* (SW 一 W) 一 8j 斤 ? 
IF J(2) = 1 THEN PRINT : POKE 1659,1: GOTO 9800 
IF J(3) = 1 THEN PRINT "建议 每 天 服 :V.aG@ 丸 ,V.C 
300 MG ,V.el0~ 一 100MG" 
IF J(4) = 上 THEN PRINT "每 天 至 少 吃 一 次 蔬菜 " 
IF J(5) = 1 THEN PRINT "每 日 三 餐 ,不 可 两 餐 " 
IF J'6) = 1 THEN PRINT "按时 进餐 , 细 嚼 慢 咽 " 
IF J(7) = 1 THEN PRINT " 少 吃 动物 油 , 腌 肉 , 精 制 白 
糖 ” 
IF J(8) = 1 THEN PRINT "每 天 睡 8 小 时 ” 
IF J(9) = 1 THEN PRINT "务必 歹 烟 ” 
IF (10) = 1 THEN POKE 1659,1: GOTO 9780 
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| 


720 
722 
7214 
726 


728 
730 
732 


7314 


736 
738 


9739 


9740 
9741 
97142 
9743 
971414 
9745 
9746 
9747 
9748 
9758 


IF JCG11) = 1 THEN PRINT "培养 乐观 主义 

IF J(12) = 1 THEN PRINT "避免 过 度 紧张 " 

IF J(13) 一 1 THEN POKE 1659,1:GOTO 9759 

IF DP <<= 90 AND DP > 之 79 THEN PRINT "定期 查 血 
压 , 控 制 体重 ,每 日 食盐 量 约 7 克 ” 

IF J(14) 一 1 THEN 9739 

IFY < 20 THEN 736 

IF J(15) = 1 AND (Y 之 = 20 AND Y < 30) THEN 
PRINT "每 5 年 查 一 次 胆固醇 

IF J(15) = 1 AND Y 之 = 30 THEN PRINT "每 年 查 一 
次 胆固醇 

IF J(G16) = 1 THEN PRINT "用 药 一 定 要 请 医生 指导 ” 


PRINT ”.。….…- 祝 您 身体 健康 ,生活 愉快 ! ……": POKE 
1659,0， END 
PRINT : PRINT "一 一 一 一 (防治 胆固醇 增高 ) 一 一 一 


ms 


PRINT "GD 少 沈 动 物 油 , 高 胆固醇 物 ; 吃 鱼 和 瘦 肉 " 
PRINT "人 如 喝 牛 奶 ,请 选 脱脂 的 ” 

PRNIT "人 @ 如 吃 和 蛋 , 每 周 限 吃 3 个 " 

PRINT "由 如 吃 虾 和 内 脏 ,每 月 限 吃 1 一 2 份 ” 
PRINT "@@ 用 油 时 以 植物 油 为 主 " 

PRINT "@@ 请 经 常 吃 豆腐 " 

PRINT "@) 请 医生 介绍 降 胆 固 醇 药 " 

PRINT "常用 烟 酸 肌 醇 脂 ,每 日 3 次 ,每 次 0.4 克 " 
PRINT 二 和 夫 二 二 二 和 二 二 二 二 二 二 ” 
GOTO 730 
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9759 


9760 
9761 
9762 
9763 
9761 
9765 
9766 
9767 
9768 
9779 
9780 
9781 
9782 
9783 
9781 
9785 
9786 


9788 
9800 


9801 
9802 
9803 


PRINT : PRINT "一 一 一 一 (对 高 血压 的 医嘱 ) 一 一 一 
PRINT "IT, 一 般 疗 法 : 

PRINT "GD 生活 规律 化 ,减少 紧张 但 不 消极 

PRINT "@@ 每 天 食盐 约 7 克 , 常 吃 蔬菜 ,饮酒 适量 " 
PRINT "人 @@ 要 节制 房事 ” 

PRINT " 旨 适 度 运动 ,如 步行 ,以 能 说 话 为 限 " 

PRINT 7@ 定 期 请 医生 指导 " 

PRINT " TI, 药物 疗法 :” 

PRINT "人 D 按 医嘱 用 药 ” 

PRINT "人 建议 首选 , 哌 坐 嗪 (PRAZOSIN) 

GOTO 728 

PRINT : PIRNT " 记 住 : 生命 在 于 运动 1 

PRINT "每 天 用 半 小 时 完成 一 套 室内 运动 " 

PRINT "室内 运动 动作 自 编 自 选 

PRINT "建议 每 天 扩 胸 300 次 , 屈 体 200 次 " 

PRINT "至 少 也 要 每 周 锻炼 3 一 4 次 ,每 次 30 分 钟 " 
PRINT "体力 活动 项 目 可 选 散步 ,慢跑 或 其 他 ” 

IFY >>= 50 THEN PRINT "如 体 弱 , 应 饭 后 1 小 时 以 
后 再 做 体力 活动 " 

GOTO 720 

PRINT "您 需 减轻 体重 :";W 一 SW 一 4 公斤 一 一 


PRINT "IT, 节 制 饮 食 : 
PRINT "热量 :每 天 低 于 有 2000 卡 " 
PIRNT " 凶 蛋 白质 :每 天 每 公斤 1 克 ” 
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98014 
9805 
9806 
9807 
9808 
9809 
9810 
9811 
9812 


PRINT "人 @@ 少 吃 动物 油 " 

PRINT "由 食盐 每 天 10 克 以 下 ” 

PRINT "@ 不 喝 咖 啡 和 酒 " 

PRINT "@) 少 吃 甜食 ,晚餐 少 吃 , 忌 饭 后 立即 睡觉 " 
PRINT "@@ 如 超重 过 多 无 不 适 , 每 周 可 有 1 天 不 吃 ” 
PRINT "IT, 多 运动 ,但 要 适量 , 贵 在 持之以恒 ” 
VTAB 5 

PRINT "用 上 法 半年 无 效 / 有 特殊 症状 -- 请 就 医 " 
GOTO 701 


程序 名 :ZX 
10 PRINT CHR$ (4);"PR 井 3 
999 POKE 165940 


1000 


1002 


10014 


1006 


1008 


1010 


1012 


HOME : PRINT TAB (13);" 抗 衰老 咨询 " 
PRINT ”一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 7 


PRINT " 0, 退出"; :PRINT TAB( 20);"6. 寿命 的 限 


度 " 


PRINT "1. 合适 的 运动 量 ";， PRINT TAB( 20);"7. 寿 


星 长 寿 经 验 ” 


PRINT "2. 基本 营养 素 "; : PRINT TAB( 20);"8. 抗 衰 


老 药 物 " 


PRINT ”3. 胆固醇 含量 "; : PRINT TAB( 20);"9. 中 医 


养生 法 ” 


PRINT "4. 老年 常见 疾病 *; : PRINT TAB( 20)i710. 


十 和 长 寿 歌 


。3142 。 


1014 PRINT ”5. 防 癌 方 法 " 

1015 PRINT "一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 ? 

1016 HTAB 4;, VTAB 10:, PRINT "请 输入 选择 (0 一 10):”; 

1038 INPUT X 

1039 POKE 1659,1 

1040 IFX<00ORX>10THEN 1050 

1046 X 一 X 十 1:GOTO 1056 

1050 GOTO 1038 

1056 ON X GOTO 1982,9730,9700,9680,9660,9620,9580， 
9560,9500,9400,9380 

1982 ”PRINT " 祝 您 健康 长 寿 ! 再 见 必 

1984 POKE 1659,0 

1986 END 

1992 ”PRINT CHR$ (4);"RUN SXY 

1998 END 

9380 PRINT TAB( 40)i"x xx x 十 与 长 寿 歌 x x* x” 

9381 PRINT " 苷 有 行路 人 ,海边 逢 十 扯 , 年 皆 百 余 岁 ,精神 
加 倍 有 ,诚心 前 拜 求 ,何以 得 高 寿 ." 

9382 ”PRINT "一 奥拓 须 目 ;我 弗 嗜 烟 酒 ;"; 

9383 ”PRINT "二 熏 笑 莞 而 :淡泊 甘 蔬 粮 ;”; 

9384 PRINT "三 与 整 衣 袖 : 服 劳 自动 手 ;”; 

9385 PRINT "四 投 扩 木 杖 : 安 步 当 车 久 寡 ; 

9386 ”PRINT "五 僵 摸 巨 鼻 : 清 气 通 窗 有 依 ;”; 

9388 ”PRINT "六 皇 抚 赤 烦 : 沐 日 令 颜 勋 1”; 

9389 PRINT "七 奥 稳 回旋 :太极 朝 朝 走 ;"; 

9390 ”PRINT " 八 彼 理 短 冉 :早起 亦 早 休 ;"; 
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9391 
9392 
9393 


9396 
9398 
9400 
9402 
94014 


9406 
9408 


9420 


9421 


9428 
94714 
9476 


9478 
9498 
9500 
9502 


PRINT " 九 生 颌 首 频 : 未 作 私利 求 ;” 
PRINT "十 彼 轩 双 眉 : 坦 坦 无 忧愁 1 


了 PRINT " 善 截 十 首 辞 , 妙 诀 一 一 前, 若 能 遵 以 行 , 定 卜 


登 上 寿 .” 

PRINT 

GOTO 999 

PRINT "中 医 养生 法 :” 

PRINT "1. 名 艇 言 : 

PRINT “ 百 四 十 岁 中 医 罗 明山 : 吾 辈 长 寿 之 诀 , 概 言 
之 ,无 非 勤 动 ,节食 , 惜 精 , 畅 怀 而 已 ,但 所 贵 者 . 持 之 以 
人 恒 也 ." 

PRINT "2. 人 恒 运 动 : 

PRINT "要 想 常 生 , 动 骨 运 筋 ,养生 之 道 , 常 欲 小 劳 ,但 
莫大 疲 及 强 所 不 能 堪 尔 ." 

PRINT " 且 流 水 不 腐 , 户 枢 不 嘉 , 以 其 运动 故 也 ,动摇 
则 谷 气 消 , 血 脉 流通 , 病 不 得 生 ."; 

PRINT “早起 广 步 于 庭 , 行 三 里 二 里 , 食 毕 当 行 步 , 三 
百 二 百 步 为 佳 , 令 人 能 饮食 ,无 百 病 .”; 

PRINT "每 夜 入 睡 时 , 绕 室 行 千 步 , 始 就 枕 .” 

PRINT "总 言 之 :” 

PRINT "人 恒 运 动 , 畅 精神 , 善 饮 食 , 严 嗜好 , 重 环境 , 守 
作息 , 节 房 事 , 辅 药物 .7 

PRINT 

GOTO 999 

PRINT " 抗 老 药物 介绍 :” 

PRINT "世界 上 最 有 名 的 抗 衰老 药物 是 阿 斯 兰 教授 发 
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9510 
9512 
9558 
9560 
9562 
95614 
9578 
9580 
9582 
9581 
9586 
9588 
9590 
9592 
95914 
9616 


9617 
9618 
9620 
9621 
9622 
9621 
9626 
9628 


明 的 V.H3，"; 
PRINT "国内 抗 衰老 药物 有 : 益 寿 宁 , 抗 防 衰 丹 等 ." 
PRINT 
GOTO 999 
PRINT " 百 岁 老人 的 长 寿 经 验 : ”; 
PRINT "主要 是 坚持 体力 活动 ,情绪 乐观 ,营养 合理 .” 
PRINT 
GOTO 999 
PRINT "寿命 的 最 高 限度 :” 
PRINT "1. 学 者 推测 : "; 
PRINT " 布 风 推 算 :100 一 175 岁 ."; 
PRINT " 海 弗 利 克 推 算 :120 岁 ."; 
PRINT " 厄 尔 斯 基 推 算 :167 岁 .". 
PRINT "多 数学 者 推测 :110 一 115 岁 ."; 
PRINT "2. 寿星 最 高 寿 偷 : "; 
PRINT "国内 :153 岁 , 国 外 :203 岁 .” 
PRINT ”3. 巨 杉 论证 : 随 着 社会 进步 ,寿命 可 以 达到 和 
超过 上 述 极限 .7 
PRINT 
GOTO 999 
PRINT TAB( 35);j 检 ## 提 并 ”和 防 瘤 方 法 # 林 提 并 " 
PRINT 
PRINT "1. 不 偏食 ,食糖 和 脂肪 不 能 过 多 ."; 
PRINT TAB ( 50);"2. 常 变换 食品 的 种 类 .” 
PRINT "3. 避免 饮食 过 量 ."; 
PRINT TAB( 50) ;4. 不 饮酒 过 度 ." 
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9630 
9632 


96314 
9636 


9638 
9640 


9642 
961414 
9646 
9648 
9650 


9654 
9658 
9660 
9662 


96614 
9678 
9680 


9681 
9682 


PRINT ”5. 不 吸烟 .”; 

PRINT TAB( 50);"6. 摄取 适量 的 维生素 A,C,E, 常 吃 
富 纤维 的 食物 .” 

PRINT "7. 食盐 不 可 过 量 ,不 吃 过 热 的 食物 ."; 

PRINT TAB( 50);"8. 不 吃 烧 得 过 焦 的 鱼 , 肉 及 其 他 食 
物 .? 

PRINT ”9. 不 吃 发 霉 的 食物 ."; 

PRINT TAB( 50);"10. 避免 日 晒 过 度 和 不 必要 的 X 线 
照射 .” 

PRINT "11. 避免 过 度 劳 累 ."; 

PRINT TAB( 50);"12. 保持 身体 清洁 ,注意 卫生 .” 
PRINT "13. 避免 服药 过 量 ."; 

PRINT TAB( 50);"14. 避免 接触 有 害 物质 .” 

PRINT "15. 常 吃 蘑菇 ,大蒜 ,蕃茄 ,紫菜 , 常 饮 牛奶 , 乌 
龙 茶 ." 

PRINT 

GOTO 999 

PRINT "老年 常见 疾病 有 :”; 

PRINT "高 血压 , 冠 心 病 , 脑 出 血 , 慢 性 支气管 炎 , 瘤 
等 .， 

PRINT 

GOTO 999 

PRINT TAB (35);"x x* x # 食物 中 胆固醇 的 含量 * 
PRINT TAB( 41) ;"( 豪 克 /100 克 ) 

PRINT 
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9683 
9681 
9685 
9686 
9687 
9688 
9689 
9690 
9696 
9699 
9700 
9701 


9702 


9703 
9701 


9705 


9706 
9707 


9710 
9729 


PRINT "蛋黄 1705 奶油 168 牛奶 137; 
PRINT " 铠 鱼 265 肥 猪 肉 107 虾 子 896 "; 
PRINT " 瘦 猪 肉 77 鸡蛋 680 猪 肝 368"; 
PRINT " 羊 肝 323 大 黄鱼 79 ”松花 蛋 649 "; 
PRINT " 带 包 97 黄油 295 小 虾米 738 "; 
PRINT 对虾 150 虾皮 608 牛肉 63"; 
PRINT " 猪 油 85 鸡 117 羊 油 110 "; 
PRINT "海参 0/ 

PRINT 

GOTO 999 

PRINT "每 天 食物 中 的 基本 营养 素 应 包括 :" 

PRINT "1. 必需 氨基 酸 8 种 : 酷 氨 酸 , 和 蛋氨酸 , 赖 氨 酸 
等 ."; 

PRINT TAB( 14);"2. 脂肪 酸 至 少 应 有 亚 油 酸 和 花生 
脂 酸 .” 

PRINT ”3. 碳水 化 后 物 :淀粉 , 糖 ."; 

PRINT TAB(48);"4. 维生素 ;A,Bl,C,D,E,K,B6,B12 
等 ." 

PRINT "5. 矿物 质 : 锌 , 磷 , 镁 , 钙 , 碘 , 钾 , 钠 , 铁 , 铜 ， 


: 锰 , 硒 , 铬 ,等 ， 和 二 


PRINT TAB( 15);"6. 含 这 些 营 养 素 的 食物 有 :”; 
PRINT “粮食 ( 米 , 面 ), 牛 奶 , 酸 奶 酷 , 色 ,家 禽 , 肉 类 ， 
蔬菜 ,水 果 .” 
PRINT 
GOTO 999 
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9730 
9731 
9732 
9733 
9634 
9738 
9740 


PRINT "可 以 根据 运动 时 的 脉 率 来 限制 动 动 量 :” 
PRINT "30 多 岁 每 分 钟 130 次 .?; 

PRINT "40 多 岁 每 分 钟 125 次 .”; 

PRINT ”50 多 岁 每 分 钟 120 次 .”; ， 

PRINT "60 岁 以 上 每 分 钟 112 次 ." 

GOTO 999 

PRINT 
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第 九 章 打印 游戏 画面 图 软件 


一 、 硬 件 配置 :中 华 学 习 机 和 显示 器 各 一 台 。 

1、 软 盘 驱 动 器 一 台 。 

2 、 九 针 打印 机 一 台 。 

3 主机 具有 热 启动 功能 ,游戏 在 运行 中 可 以 中 断 退出 ,并 
重新 启动 。 

改进 型 的 中 华 学 习 机 CEC-I 型 ,已 有 此 功能 。 

原 CEC-I 机 , 则 必须 按 下 述 办 法 对 主机 稍 加 改进 ,也 可 实 
现 此 功能 。 

方法 工 : 在 游戏 棒 的 接口 上 的 相应 两 孔 , (十 5V,SW2) 用 
短路 导线 将 其 接 通 即 可 ( 见 图 9. 1)。 

方法 工 :对 于 使 用 游戏 棒 的 游 戏 来 讲 , 方 法 ! 显然 不 适 
用 ,为 一 劳 永 逸 ,可 以 打开 游戏 棒 的 九 针 插 头 , 找 出 与 方法 
中 接口 上 的 两 孔 对 应 的 接线 端 ,然后 将 其 短 接 ( 路 )。 

经 过 上 述 处 理 后 ,不 影响 游戏 的 正常 运行 。 

二 、 格 式 化 一 张 打 印 需要 用 的 软盘 。 

将 下 列 程序 作为 招呼 程序 格式 化 一 张 打印 要 用 的 软盘 ， 
作 备 用 。 

1. 打印 游戏 画面 图 程序 清单 
5 HOME 
10 HOME A:;IF A 一 0THEN END 
15 _ N 一 49236 
20 IF A 一 2 THEN N 一 49237 
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25  POKE 49232,0:POKE 49239,0 
30 IFA 一 9THEN 100 
35 POKE N,0 
40 FORI 王 1TO2000:NEXT :TEXT 
45 HOME :PRINT "DA YIN? (Y/N)";:GET A 有 $ 
50 IF A$ <<>"Y" THEN 10 
55 PRINT :PRINT :PRINT "FAN XING? (Y/N)"; :GET A$ 
60 IFA 和 $ 一 "Y" THEN A 一 A 十 32 
65  POKE 1913, 和 A 
70 PRINT :PRINT CHRS$ (4)7;"PR 并 1" :PRINT 
75 PRINT :PRINT CHRS$ (17) ;PRINT 
80 PRINT:PRINT CHR $(4);"PR 提 0" :PRINT 
85 END 
90 DATA 1,2,9,0 
100 FORJ 王 1TO 50 
105  POKE 49236,0:FOR I 王 1 TO 10;:NEXT 
110  POKE 49237,0;FOR I 王 1 TO 10;NEXT 
115 NEXT J:TEXT 
120 GOTO 45 
2. 格式 化 打印 需要 的 软盘 : 
(1) 利 用 DoS 盘 启 动 操作 系统 。 
(2) 将 上 述 程序 输入 。 
3) 格式 化 操作 :空白 盘 插 入 驱动 器 。 
在 BASIC 语言 状态 下 :请 敲 入 INIT HELLO 妈 
三 .打印 操作 过 程 如 下 : 


1 将 打印 卡 播 入 学 习 机 的 扩展 槽 内 ,将 有 元 件 的 一 面 面 
。350。 


向 键盘 。 如 果 使 用 的 是 APPLE 的 打印 卡 , 则 要 将 学 习 机 的 面 
板 取 下 。 或 者 将 机 盖 板 开口 扩大 一 些 , 插 好 打印 卡 后 , 仍 可 将 
机 盖 板 还 原 ( 即 装 好 盖 板 )。 

2. 装 好 打印 纸 , 接 通 打 印 机 电源 。 

3. 游戏 调 入 。 

4. 确定 打印 画面 后 ,暂停 游戏 : 

游戏 有 暂停 功能 者 ,使 用 暂停 键 ; 

游戏 无 暂停 功能 者 ,请 将 主机 进入 自 检 状态 :同时 芒 下 
CTRL 十 RESET 十 TEST 三 键 。 此 “暂停 ?步骤 ,是 为 防止 在 将 打 
印 盘 替 换 游 戏 盘 时 ,驱动 器 可 能 启动 工作 。 

5. 从 驱动 器 中 取出 游戏 盘 , 换 上 打印 盘 。 

6. 热 启 动 ; 

对 于 改进 型 CEC-I: 痪 CTRL 十 RESET 十 西 文 键 

对 上 述 方法 I: 殴 CTRL 十 RESET 

对 上 述 方法 工 : 敲 CTRL 十 RESET 十 游戏 棒 上 的 1# 键 

热 启动 后 ,打印 程序 调 入 内 存 , 并 自动 运行 , 屏 疾 显示 出 
高 分 辨 图 形 第 一 页 的 游戏 图 形 。 

7. 稍 候 , 图 形 消 失 , 屏 幕 上 出 现 提示 : 

DA YIN? 〈Y/N) 询问 是 否 打印 该 图 形 , 若 认为 图 形 不 满 
意 ,可 以 薇 N 键 , 则 将 在 屏幕 上 显示 出 高 分 辩 图 形 第 二 页 的 
游戏 图 形 。 

8. 随后 再 次 询问 打印 与 否 , 若 你 敲 N 键 , 则 屏幕 上 将 反 
复 显示 一 页 和 二 页 的 图 形 ( 若 回答 “Y?” 时 ,可 打印 出 两 页 的 达 
加 图 形 ) 。 

9. 如 以 上 询问 时 , 若 殴 入 Y 键 , 则 屏幕 显示 为 :FAN 
XING? (Y/N) 这 是 询问 游戏 图 形 是 否 需要 反 相 打印 ( 反 相 打 
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印 适 用 于 底 色 为 黑色 的 图 形 ) 
10. 回答 反 相 询问 后 (无 论 殴 了 键 , 还 是 N 键 ) 均 可 打印 


PDL。 十 5V 


PDL SW。(SW:) 


图 9.1 
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